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

Dave's patch to avoid out.xref warnings (a hack around the handin-server doc problem)

Browse Source 
svn: r12649
This commit is contained in:
Matthew Flatt 2008-11-30 14:22:28 +00:00
parent 35599a8955
commit 1fa53fc4bf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/setup/xref.ss
View File

@ -23,8 +23,9 @@
(path-replace-suffix (file-name-from-path (car d)) (path-replace-suffix (file-name-from-path (car d))
#"")))]) #"")))])
(and (not (and (len . >= . 3) (memq 'omit (caddr d)))) (and (not (and (len . >= . 3) (memq 'omit (caddr d))))
(let ([d (doc-path dir name flags 'false-if-missing)]) (let* ([d (doc-path dir name flags 'false-if-missing)]
(and d (build-path d "out.sxref"))))))) [p (and d (build-path d "out.sxref"))])
(and p (file-exists? p) p))))))
(define (get-reader-thunks) (define (get-reader-thunks)
(map (lambda (dest) (map (lambda (dest)