bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 2dfa41a8f20d3388ae537943e8ad415543ac6593
parent a65ca82cc54768996396e6f315826a0b760de074
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Fri, 25 Jan 2008 16:47:43 +0000

Better sorting of index entries

svn: r8418

original commit: 5c13830bf67cab65630d41ac1da1552aedde769b

Diffstat:
M
collects/scribble/basic.ss
 | 
9
++++++---

1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
@@ -206,9 +206,12 @@
         (cdr (apply append (map (lambda (i) (list ", " i)) l)))))
     (define (cadr-string-lists<? a b)
       (let loop ([a (cadr a)] [b (cadr b)])
-        (cond [(null? a) #t]
-              [(null? b) #f]
-              [(string-ci=? (car a) (car b)) (loop (cdr a) (cdr b))]
+        (cond [(null? b) #f]
+              [(null? a) #t]
+              [(string-ci=? (car a) (car b))
+               (or (loop (cdr a) (cdr b))
+                   ;; Try string<?
+                   (string<? (car a) (car b)))]
               [else (string-ci<? (car a) (car b))])))
     (define alpha (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
     (define contents