summaryrefslogtreecommitdiffstats
path: root/values.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:29 -0800
commit8466d8cfa486fb30d1755c4261b781135083787b (patch)
treec8c12c67246f543c3cc4f64d1c07e003cb1d45ae /values.scm
parent87b82b5822ca54228cfa6df29be3ad9d4bc47d16 (diff)
downloadslib-8466d8cfa486fb30d1755c4261b781135083787b.tar.gz
slib-8466d8cfa486fb30d1755c4261b781135083787b.zip
Import Upstream version 3a1upstream/3a1
Diffstat (limited to 'values.scm')
-rw-r--r--values.scm4
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*)))