minor things

svn: r8419

original commit: df0368e5ccc99f75b993eacc2a627c33dfa70d9f

collects/scribble/base-render.ss

@@ -134,10 +134,7 @@
         (case (car k)
           [(part tech)
            (if (string? (cadr k))
-               (list (car k)
-                     (string-append prefix
-                                    ":"
-                                    (cadr k)))
+               (list (car k) (string-append prefix ":" (cadr k)))
                k)]
           [(index-entry)
            (let ([v (convert-key prefix (cadr k))])

collects/scribble/basic.ss

@@ -190,8 +190,7 @@
                     content)))
 
   (define (index-section #:title [title "Index"] #:tag [tag #f])
-    (make-unnumbered-part
-     #f
+    (make-unnumbered-part #f
                           `((part ,(or tag "doc-index")))
                           (list title)
                           'index
@@ -210,7 +209,7 @@
               [(null? a) #t]
               [(string-ci=? (car a) (car b))
                (or (loop (cdr a) (cdr b))
-                   ;; Try string<?
+                   ;; Try string<? so "Foo" still precedes "foo"
                    (string<? (car a) (car b)))]
               [else (string-ci<? (car a) (car b))])))
     (define alpha (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
@@ -264,8 +263,7 @@
                             [else (loop (cdr i) alpha)]))]))))))
            (list (make-flow (list (make-paragraph (list 'nbsp)))))
            (map (lambda (i)
-                  (let* ([e (make-link-element
-                             "indexlink"
+                  (let* ([e (make-link-element "indexlink"
                                                (commas (caddr i))
                                                (car i))]
                          [letter (hash-table-get alpha-starts i #f)]

collects/scribble/xref.ss

@@ -130,11 +130,7 @@
   (let ([v (hash-table-get (collect-info-ext-ht (resolve-info-ci (xrefs-ri xrefs)))
                            `(index-entry ,tag)
                            #f)])
-    (cond
-     [v (make-entry (car v) 
-                    (cadr v)
-                    (cadr tag)
-                    (caddr v))]
+    (cond [v (make-entry (car v) (cadr v) (cadr tag) (caddr v))]
           [(and (pair? tag) (eq? 'form (car tag)))
            ;; Try again with 'def:
            (xref-tag->index-entry xrefs (cons 'def (cdr tag)))]