guile/guile-core/ice-9 r4rs.scm

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/03/26 14:32:39

Modified files:
        guile-core/ice-9: r4rs.scm 

Log message:
        * r4rs.scm (call-with-values): New definition, defers to
        @call-with-values.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/r4rs.scm.diff?r1=1.12&r2=1.13

Patches:
Index: guile/guile-core/ice-9/r4rs.scm
diff -u guile/guile-core/ice-9/r4rs.scm:1.12 
guile/guile-core/ice-9/r4rs.scm:1.13
--- guile/guile-core/ice-9/r4rs.scm:1.12        Sat Apr 15 19:02:31 2000
+++ guile/guile-core/ice-9/r4rs.scm     Mon Mar 26 14:32:39 2001
@@ -28,6 +28,8 @@
 (set-procedure-property! apply 'name 'apply)
 (define (call-with-current-continuation proc)
   (@call-with-current-continuation proc))
+(define (call-with-values producer consumer)
+  (@call-with-values producer consumer))
 
 
 ;;;; Basic Port Code