diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-06-25 03:27:51 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-06-25 03:27:51 +0000 |
commit | fc7a9e81a699994b365e76ac84345aa354c3fe62 (patch) | |
tree | 2138395edbe6bee3b0c6433afb30cd26bfe085ca /ice-9 | |
parent | f65811137e95496d70f5f12039cbf750f66977f0 (diff) | |
download | guile-fc7a9e81a699994b365e76ac84345aa354c3fe62.tar.gz |
* streams.scm (stream-for-each-many): typo fix.
Diffstat (limited to 'ice-9')
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/streams.scm | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index d1005d491..ffdef9570 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,7 @@ +2001-06-25 Michael Livshin <mlivshin@bigfoot.com> + + * streams.scm (stream-for-each-many): typo fix. + 2001-06-25 Marius Vollmer <mvo@zagadka.ping.de> * boot-9.scm (re-export-syntax): New. diff --git a/ice-9/streams.scm b/ice-9/streams.scm index 9ef0706e6..d300937e6 100644 --- a/ice-9/streams.scm +++ b/ice-9/streams.scm @@ -212,7 +212,7 @@ If STREAM has infinite length this procedure will not terminate." (f (stream-car stream)) (stream-for-each-one f (stream-cdr stream))))) -(define (stream-for-each-may f streams) +(define (stream-for-each-many f streams) (if (not (or-map stream-null? streams)) (begin (apply f (map stream-car streams)) |