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)))