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

2
lib/chibi/filesystem.sld
View file

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