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

---
 dynamic.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'dynamic.scm')

diff --git a/dynamic.scm b/dynamic.scm
index 937f93e..3bdd037 100644
--- a/dynamic.scm
+++ b/dynamic.scm
@@ -26,21 +26,23 @@
 				  *current-dynamic-environment*)))
 
 (define dynamic-rtd (make-record-type "dynamic" '()))
+;@
 (define make-dynamic
   (let ((dynamic-constructor (record-constructor dynamic-rtd)))
     (lambda (obj)
       (let ((dynamic (dynamic-constructor)))
 	(extend-current-dynamic-environment dynamic obj)
 	dynamic))))
-
+;@
 (define dynamic? (record-predicate dynamic-rtd))
+
 (define (guarantee-dynamic dynamic)
   (or (dynamic? dynamic)
       (slib:error "Not a dynamic" dynamic)))
 
 (define dynamic:errmsg
   "No value defined for this dynamic in the current dynamic environment")
-
+;@
 (define (dynamic-ref dynamic)
   (guarantee-dynamic dynamic)
   (let loop ((env *current-dynamic-environment*))
@@ -50,7 +52,7 @@
 	   (dynamic-environment:value env))
 	  (else
 	   (loop (dynamic-environment:parent env))))))
-
+;@
 (define (dynamic-set! dynamic obj)
   (guarantee-dynamic dynamic)
   (let loop ((env *current-dynamic-environment*))
@@ -60,7 +62,7 @@
 	   (dynamic-environment:set-value! env obj))
 	  (else
 	   (loop (dynamic-environment:parent env))))))
-
+;@
 (define (call-with-dynamic-binding dynamic obj thunk)
   (let ((out-thunk-env #f)
 	(in-thunk-env (make-dynamic-environment
-- 
cgit v1.2.3