suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

avoid warnings for missing user docs

Browse Source 
svn: r10149

original commit: ae09de2fa2cb15c37cd14eb858aed64071ce53f3
This commit is contained in:
Eli Barzilay 2008-06-05 16:34:53 +00:00
parent 5126a59c72
commit b9c84b4cc7
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
collects/scribble/xref.ss
View File

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