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

commit 0b70f28085b3995ffc1b4616a4ea022102d9c714
parent de4f8a0e359e4b4c612fa2a69796f2a6a8027987
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Thu,  7 Feb 2008 17:25:49 +0000

search improvements

svn: r8566

original commit: cad5f5d85d9684f1a2c349f430baf474b9f491ee

Diffstat:
M
collects/help/search.ss
 | 
6
++----
M
collects/scribble/xref.ss
 | 
1
+

2 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/collects/help/search.ss b/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)
diff --git a/collects/scribble/xref.ss b/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)))