mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +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 23:02:21 +00:00
parent 5448f52abf
commit a7dbec8a51
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2004-09-04 Kevin Ryde <user42@zip.com.au>
* streams.scm (stream-for-each-many): Correction, should recurse into
itself, not stream-for-each-one.
2004-09-02 Kevin Ryde <user42@zip.com.au> 2004-09-02 Kevin Ryde <user42@zip.com.au>
* format.scm (format:out): Ignore excess arguments, per common lisp. * format.scm (format:out): Ignore excess arguments, per common lisp.

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 program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -215,7 +215,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