[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, srfi-41, updated. v2.0.7-220-g8a2ba66

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, srfi-41, updated. v2.0.7-220-g8a2ba66
Date: Wed, 27 Mar 2013 01:35:05 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, srfi-41 has been updated
       via  8a2ba669530856410a2e63d449b8d199f5c21649 (commit)
      from  8a77cefe174c28e282d8431be9a1168af2c50021 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8a2ba669530856410a2e63d449b8d199f5c21649
Author: Mark H Weaver <address@hidden>
Date:   Tue Mar 26 21:31:30 2013 -0400

    SRFI-41: Remove multiple-value support from embedded copy of SRFI-45.
    * module/srfi/srfi-41.scm: Remove 2013 from list of FSF copyright dates
      on the embedded copy of SRFI-45.
      (stream-eager, stream-delay, stream-force): Revert changes that added
      multiple value-support to the embedded copy of SRFI-45.


Summary of changes:
 module/srfi/srfi-41.scm |   12 +++++-------
 1 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/module/srfi/srfi-41.scm b/module/srfi/srfi-41.scm
index 6a5af77..edf95d7 100644
--- a/module/srfi/srfi-41.scm
+++ b/module/srfi/srfi-41.scm
@@ -87,7 +87,7 @@
 ;; properly: <>.  So for now, we duplicate the
 ;; code.
-;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc.
+;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
 ;; Copyright (C) 2003 André van Tonder. All Rights Reserved.
 ;; Permission is hereby granted, free of charge, to any person
@@ -120,18 +120,16 @@
 (define-syntax-rule (stream-lazy exp)
   (make-stream-promise (make-stream-value 'lazy (lambda () exp))))
-(define (stream-eager . xs)
-  (make-stream-promise (make-stream-value 'eager xs)))
+(define (stream-eager x)
+  (make-stream-promise (make-stream-value 'eager x)))
 (define-syntax-rule (stream-delay exp)
-  (stream-lazy (call-with-values
-                   (lambda () exp)
-                 stream-eager)))
+  (stream-lazy (stream-eager exp)))
 (define (stream-force promise)
   (let ((content (stream-promise-val promise)))
     (case (stream-value-tag content)
-      ((eager) (apply values (stream-value-proc content)))
+      ((eager) (stream-value-proc content))
       ((lazy)  (let* ((promise* ((stream-value-proc content)))
                       (content  (stream-promise-val promise)))
                  (if (not (eqv? (stream-value-tag content) 'eager))

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]