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

fix help search to not fail on optional user docs

Browse Source 
svn: r8337
This commit is contained in:
Matthew Flatt 2008-01-15 15:44:04 +00:00
parent 04859fb2dd
commit 37b188229e
1 changed files with 29 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/setup/xref.ss
View File

@ -10,8 +10,14 @@
(define cached-xref #f) (define cached-xref #f)
(define (get-dests dir) (define (get-dests dir)
(map (lambda (d) (let* ([i (get-info/full dir)]
(if (pair? d) [scribblings (i 'scribblings)]
[categories (i 'doc-categories (lambda ()
(map (lambda (d) 'library) scribblings)))])
(map (lambda (d cat)
(and (not (eq? cat 'omit))
(not (and (pair? cat) (eq? (car cat) 'omit)))
(pair? d)
(let* ([flags (if (pair? (cdr d)) (cadr d) null)] (let* ([flags (if (pair? (cdr d)) (cadr d) null)]
[name (if (and (pair? (cdr d)) (pair? (cddr d)) (caddr d)) [name (if (and (pair? (cdr d)) (pair? (cddr d)) (caddr d))
(cadr d) (cadr d)
@ -30,9 +36,9 @@
(build-path (find-doc-dir) name)] (build-path (find-doc-dir) name)]
[else [else
(build-path dir "compiled" "doc" name)]) (build-path dir "compiled" "doc" name)])
"out.sxref")) "out.sxref"))))
#f)) scribblings
((get-info/full dir) 'scribblings))) categories)))
(define (load-collections-xref [report-loading void]) (define (load-collections-xref [report-loading void])
(or cached-xref (or cached-xref