diff options
-rw-r--r-- | gui.rkt | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -9,7 +9,7 @@ (require "full-parse.rkt") -(define ns (current-namespace)) +(define ns (make-base-namespace)) (namespace-set-variable-value! '^ expt #t ns) (define (show-window) @@ -86,6 +86,6 @@ (lambda (button event) (define ^ expt) (send msg set-label (~a - (eval (full-parse (send msg get-label))))))]) + (eval (full-parse (send msg get-label)) ns))))]) (send frame show #t)) |