Fixing failed opendir handling from 1725:739f90999b17.

This commit is contained in:
Alex Shinn 2013-10-03 12:12:16 +09:00
parent d7cda433bc
commit daf5478824

View file

@ -50,6 +50,7 @@
((file-directory? file) ((file-directory? file)
(let ((d (opendir file))) (let ((d (opendir file)))
(if (not d) (if (not d)
acc
(let lp ((acc acc)) (let lp ((acc acc))
(let ((e (readdir d))) (let ((e (readdir d)))
(cond (cond