parent 7e67837b
......@@ -129,13 +129,12 @@
(define env (make-fluid '()))
(<define> (add_env n x)
(with-fluid-guard-dynamic-object env
(<lambda> ()
(fluid-guard-dynamic-object env)
(<code> (let lp ((r (fluid-ref env)) (n (<scm> n)) (x (<scm> x)))
(if (pair? n)
(lp (cons (cons (tosym (car n))
(car x)) r) (cdr n) (cdr x))
(fluid-set! env r)))))))
(fluid-set! env r)))))
(<define> (unify_env n x)
(<recur> lp ((n n) (x x))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment