search improvements

svn: r8566

original commit: cad5f5d85d9684f1a2c349f430baf474b9f491ee

collects/help/search.ss

@@ -112,10 +112,8 @@
              (+ acc (foldl (lambda (sc acc) (+ acc (sc word))) 0 scorers)))
            ;; give some bonus for bindings and modules
            (let ([desc (entry-desc entry)])
-             (if (or (exported-index-desc? desc)
-                     (module-path-index-desc? desc))
-               exported-entry-bonus
-               0))
+             (if (or (exported-index-desc? desc) (module-path-index-desc? desc))
+               exported-entry-bonus 0))
            (entry-words entry))))
 
 (define (scored-entry<? x y)

collects/scribble/xref.ss

@@ -64,6 +64,7 @@
 
 (define (xref-render xrefs doc dest-file #:render% [render% (html:render-mixin render%)])
   (let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)]
+         [_ (printf ">>> ~s\n" dest-file)]
          [renderer (new render% [dest-dir (path-only dest-file)])]
          [ci (send renderer collect (list doc) (list dest-file))])
     (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))