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