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

fix apparent type error in the definition of in-plt?

Browse Source
This commit is contained in:
Robby Findler 2012-10-27 18:36:55 -05:00
parent 117fde6857
commit 54301ad5ed
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/html-render.rkt
View File

@ -1597,7 +1597,7 @@
(list name))))))) (list name)))))))
(define in-plt? (define in-plt?
(let ([roots (map explode (list (find-doc-dir) (find-collects-dir)))]) (let ([roots (map explode (filter values (list (find-doc-dir) (find-collects-dir))))])
(lambda (path) (lambda (path)
(ormap (lambda (root) (ormap (lambda (root)
(let loop ([path path] [root root]) (let loop ([path path] [root root])