mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

(stream-for-each-many): Correction, should recurse into

Browse source 
itself, not stream-for-each-one.
This commit is contained in:
Kevin Ryde 2004-09-08 22:43:10 +00:00
parent 464ee095ff
commit f749e803fd
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/streams.scm
View file

@ -1,7 +1,7 @@
;;;; streams.scm --- general lazy streams ;;;; streams.scm --- general lazy streams
;;;; -*- Scheme -*- ;;;; -*- Scheme -*-
;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. ;;;; Copyright (C) 1999, 2001, 2004 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -190,7 +190,7 @@ If STREAM has infinite length this procedure will not terminate."
(if (not (or-map stream-null? streams)) (if (not (or-map stream-null? streams))
(begin (begin
(apply f (map stream-car streams)) (apply f (map stream-car streams))
(stream-for-each-one f (map stream-cdr streams))))) (stream-for-each-many f (map stream-cdr streams)))))
(define (stream-map f stream . rest) (define (stream-map f stream . rest)
"Returns a newly allocated stream, each element being the result of "Returns a newly allocated stream, each element being the result of