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

fix help lookup after scribblings entry format change

Browse Source 
svn: r9416
This commit is contained in:
Matthew Flatt 2008-04-23 01:19:24 +00:00
parent d1c6669f0d
commit a212d63387
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/setup/xref.ss
View File

@ -11,23 +11,23 @@
(define (get-dests dir)
(let* ([i (get-info/full dir)]
[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)))
[scribblings (i 'scribblings)])
(map (lambda (d)
(and (not (and (list? d)
((length d) . > . 2)
(pair? (list-ref d 2))
(eq? (car (list-ref d 2)) 'omit)))
(pair? d)
(let* ([flags (if (pair? (cdr d)) (cadr d) null)]
[name (if (and (pair? (cdr d)) (pair? (cddr d)) (caddr d))
(cadr d)
[name (if (and (pair? (cdr d)) (pair? (cddr d))
(pair? (cdddr d)))
(cadddr d)
(let-values ([(base name dir?) (split-path (car d))])
(path-replace-suffix name #"")))])
(build-path
(doc-path dir name flags)
"out.sxref"))))
scribblings
categories)))
scribblings)))
(define (load-collections-xref [report-loading void])
(or cached-xref