mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* streams.scm (stream-for-each-many): typo fix.

Browse source
This commit is contained in:
Michael Livshin 2001-06-25 03:27:51 +00:00
parent f65811137e
commit fc7a9e81a6
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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.

2
ice-9/streams.scm
View file

@ -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))