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

Minor simplification in APPLY-TO-DIR-STREAM.

This commit is contained in:
Martin Gasbichler 2003-02-22 08:17:07 +00:00
parent c73875d993
commit 1ea1d29a99
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -129,14 +129,13 @@
; '())) ; '()))
(define (apply-to-dir-stream stream-f) (define (apply-to-dir-stream stream-f)
(define (f ds file-f dir-f) (lambda (ds file-f dir-f)
(make-dir-stream (make-dir-stream
(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)) (f sub-ds file-f dir-f))
(dir-stream-subdir-stream ds)))) (dir-stream-subdir-stream ds)))))
f)
(define dir-stream-map (apply-to-dir-stream stream-map)) (define dir-stream-map (apply-to-dir-stream stream-map))
(define dir-stream-filter-map (apply-to-dir-stream stream-filter-map)) (define dir-stream-filter-map (apply-to-dir-stream stream-filter-map))