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

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

Browse Source 
original commit: 54301ad5ede34fc5000e1a0effa342036b9c0ba9
This commit is contained in:
Robby Findler 2012-10-27 18:36:55 -05:00
parent 77a57c8535
commit 7189e553a0
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)))))))
(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)
(ormap (lambda (root)
(let loop ([path path] [root root])