Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Exporting file-link-status. Fixing a bug in directory-fold-tree,

Browse source 
down should be called exactly once per directory with a matching up.
This commit is contained in:
Alex Shinn 2014-03-09 20:09:06 +09:00
parent 049dbd024c
commit fe80e56db9
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/filesystem.scm
View file

@ -55,7 +55,7 @@
(let ((d (opendir file)))
(if (not d)
acc
(let lp ((acc acc))
(let lp ((acc (down file acc)))
(let ((e (readdir d)))
(cond
(e
@ -63,7 +63,7 @@
(if (member f '("." ".."))
(lp acc)
(let ((path (string-append file "/" f)))
(lp (fold path (down path acc)))))))
(lp (fold path acc))))))
(else
(closedir d)
(up file acc))))))))

2
lib/chibi/filesystem.sld
View file

@ -14,7 +14,7 @@
create-directory create-directory*
current-directory change-directory with-directory
open open-pipe make-fifo
file-status
file-status file-link-status
file-device file-inode
file-mode file-num-links
file-owner file-group