From 218da2b99209ee0aef289409b8ab91e89ecea4cb Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 26 Mar 2001 22:32:39 +0000 Subject: [PATCH] * r4rs.scm (call-with-values): New definition, defers to @call-with-values. --- ice-9/r4rs.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ice-9/r4rs.scm b/ice-9/r4rs.scm index c820ffbc0..6dff2a616 100644 --- a/ice-9/r4rs.scm +++ b/ice-9/r4rs.scm @@ -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