From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:29 -0800
Subject: Import Upstream version 3a1

---
 values.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'values.scm')

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*)))
-- 
cgit v1.2.3