From 1ea1d29a9983804b089d28ec6e1017dff6b05b5a Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Sat, 22 Feb 2003 08:17:07 +0000 Subject: [PATCH] Minor simplification in APPLY-TO-DIR-STREAM. --- scsh/dir-streams/dir-stream.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/scsh/dir-streams/dir-stream.scm b/scsh/dir-streams/dir-stream.scm index ea0e5e1..0b128e2 100644 --- a/scsh/dir-streams/dir-stream.scm +++ b/scsh/dir-streams/dir-stream.scm @@ -129,14 +129,13 @@ ; '())) (define (apply-to-dir-stream stream-f) - (define (f ds file-f dir-f) + (lambda (ds file-f dir-f) (make-dir-stream (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)) - (dir-stream-subdir-stream ds)))) - f) + (dir-stream-subdir-stream ds))))) (define dir-stream-map (apply-to-dir-stream stream-map)) (define dir-stream-filter-map (apply-to-dir-stream stream-filter-map))