From b9c84b4cc7b88e7bec4f83af6ee323727d5e99cb Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 5 Jun 2008 16:34:53 +0000
Subject: [PATCH] avoid warnings for missing user docs

svn: r10149

original commit: ae09de2fa2cb15c37cd14eb858aed64071ce53f3
---
 collects/scribble/xref.ss | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

diff --git a/collects/scribble/xref.ss b/collects/scribble/xref.ss
index 3a648262..f4b7d438 100644
--- a/collects/scribble/xref.ss
+++ b/collects/scribble/xref.ss
@@ -21,10 +21,11 @@
          xref-transfer-info
          (struct-out entry))
 
-(define-struct entry (words    ; list of strings: main term, sub-term, etc.
-                      content  ; Scribble content to the index label
-                      tag      ; for generating a Scribble link
-                      desc))   ; further info that depends on the kind of index entry
+(define-struct entry
+  (words    ; list of strings: main term, sub-term, etc.
+   content  ; Scribble content to the index label
+   tag      ; for generating a Scribble link
+   desc))   ; further info that depends on the kind of index entry
 
 ;; Private:
 (define-struct xrefs (renderer ri))
@@ -36,18 +37,16 @@
 
 (define-namespace-anchor here)
 
-(define (load-xref sources 
+(define (load-xref sources
                    #:render% [render% (html:render-mixin render%)]
                    #:root [root-path #f])
-  (let* ([renderer (new render%
-                        [dest-dir (find-system-path 'temp-dir)])]
+  (let* ([renderer (new render% [dest-dir (find-system-path 'temp-dir)])]
          [ci (send renderer collect null null)])
-    (for-each (lambda (src)
-                (parameterize ([current-namespace (namespace-anchor->empty-namespace here)])
-                  (let ([v (src)])
-                    (when v
-                      (send renderer deserialize-info v ci #:root root-path)))))
-              sources)
+    (for ([src sources])
+      (parameterize ([current-namespace
+                      (namespace-anchor->empty-namespace here)])
+        (let ([v (src)])
+          (when v (send renderer deserialize-info v ci #:root root-path)))))
     (make-xrefs renderer (send renderer resolve null null ci))))
 
 ;; ----------------------------------------
@@ -147,4 +146,3 @@
            ;; Try again with 'def:
            (xref-tag->index-entry xrefs (cons 'def (cdr tag)))]
           [else #f])))
-