Fix dir-stream-apply

2003-11-19 10:58:45 +00:00 · 2003-11-19 10:58:45 +00:00 · 34f58eb4c6
parent d292dc423f
commit 34f58eb4c6
1 changed files with 1 additions and 1 deletions
--- a/scsh/dir-streams/dir-stream.scm
+++ b/scsh/dir-streams/dir-stream.scm
@ -134,7 +134,7 @@
     (dir-f (dir-stream-info ds))
     (stream-f file-f (dir-stream-files-stream 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)))))

 (define dir-stream-map (apply-to-dir-stream stream-map))