Probably fixing a problem reported by Eli that I don't know how to recreate

This commit is contained in:
Jay McCarthy 2010-10-25 14:50:09 -06:00
parent f4c4b79049
commit c2e81d4aa0

View File

@ -209,7 +209,7 @@
(if (and (directory-exists? "racket") (not *btgz?*))
(filtered-map
(lambda (x) ; only directories contain stuff we need
(and (directory-exists? x) (get-tree x)))
(and (directory-exists? x) (get-tree x "racket")))
(dir-list))
(let ([trees (filtered-map
(lambda (x)