From a7dbec8a518f3b532cfe7d2a06a92b341a799bd2 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 8 Sep 2004 23:02:21 +0000 Subject: [PATCH] (stream-for-each-many): Correction, should recurse into itself, not stream-for-each-one. --- ice-9/ChangeLog | 5 +++++ ice-9/streams.scm | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 81c289d50..fb59e64a7 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2004-09-04 Kevin Ryde + + * streams.scm (stream-for-each-many): Correction, should recurse into + itself, not stream-for-each-one. + 2004-09-02 Kevin Ryde * format.scm (format:out): Ignore excess arguments, per common lisp. diff --git a/ice-9/streams.scm b/ice-9/streams.scm index 518adbf22..d8637fc4b 100644 --- a/ice-9/streams.scm +++ b/ice-9/streams.scm @@ -1,7 +1,7 @@ ;;;; streams.scm --- general lazy streams ;;;; -*- 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 ;;;; 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)) (begin (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) "Returns a newly allocated stream, each element being the result of