Import Upstream version 3a1upstream/3a1

1 files changed, 2 insertions, 2 deletions

diff --git a/values.scm b/values.scm
index b47e0f8..23d3a1b 100644
--- a/values.scm
+++ b/values.scm
@@ -8,7 +8,7 @@
 (define values:*values-rtd*
   (make-record-type "values"
 		    '(values)))
-
+;@
 (define values
   (let ((make-values (record-constructor values:*values-rtd*)))
     (lambda x
@@ -16,7 +16,7 @@
 	       (null? (cdr x)))
 	  (car x)
 	  (make-values x)))))
-
+;@
 (define call-with-values
   (let ((access-values (record-accessor values:*values-rtd* 'values))
 	(values-predicate? (record-predicate values:*values-rtd*)))