scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix dir-stream-apply

This commit is contained in:
Martin Gasbichler 2003-11-19 10:58:45 +00:00
parent d292dc423f
commit 34f58eb4c6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/dir-streams/dir-stream.scm
View File

@ -134,7 +134,7 @@
(dir-f (dir-stream-info ds)) (dir-f (dir-stream-info ds))
(stream-f file-f (dir-stream-files-stream ds)) (stream-f file-f (dir-stream-files-stream ds))
(stream-f (lambda (sub-ds) (stream-f (lambda (sub-ds)
(f sub-ds file-f dir-f)) ((apply-to-dir-stream stream-f) sub-ds file-f dir-f))
(dir-stream-subdir-stream ds))))) (dir-stream-subdir-stream ds)))))
(define dir-stream-map (apply-to-dir-stream stream-map)) (define dir-stream-map (apply-to-dir-stream stream-map))