Update mzscheme namespace usage for eval to use namespace anchors
authorTony Garnock-Jones <tonygarnockjones@gmail.com>
Fri, 17 Dec 2010 16:44:03 -0500
changeset 33 bec0f2436e38
parent 32 5deee5dae03d
child 34 ca269f5c30b3
Update mzscheme namespace usage for eval to use namespace anchors
ometa.scm
--- a/ometa.scm	Wed May 26 23:52:23 2010 +1200
+++ b/ometa.scm	Fri Dec 17 16:44:03 2010 -0500
@@ -252,9 +252,11 @@
 ;; (position)
 ;; (action meta-exp); -> exp, ?exp
 
-;; We use current-namespace below as a default so that grammars by
-;; default have access to the toplevel.
-(define ometa-namespace-getter (make-parameter current-namespace))
+(define-namespace-anchor ometa-namespace-anchor)
+(define ometa-namespace-getter
+  (make-parameter
+   (lambda ()
+     (namespace-anchor->namespace ometa-namespace-anchor))))
 
 (define (interpret-ometa start rules input ks kf)
   (define (eval-host exp env k)