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)
(let ((d (opendir file)))
(if (not d)
acc
(let lp ((acc acc))
(let ((e (readdir d)))
(cond