From 0b70f28085b3995ffc1b4616a4ea022102d9c714 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 7 Feb 2008 17:25:49 +0000
Subject: [PATCH] search improvements

svn: r8566

original commit: cad5f5d85d9684f1a2c349f430baf474b9f491ee
---
 collects/help/search.ss   | 6 ++----
 collects/scribble/xref.ss | 1 +
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/collects/help/search.ss b/collects/help/search.ss
index 11db248b..03e369ab 100644
--- 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
index 9c367120..279513fd 100644
--- 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)))