summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2020-02-07 15:04:00 +0100
committerHugo Hörnquist <hugo@hornquist.se>2020-02-07 15:04:00 +0100
commit365290e8785eb36cb87b89599dba084feb198b03 (patch)
treec129edd039cfe003e33fabe407105fa4c33a3c6f
parentRewrote main in racket. (diff)
downloadmath-parse-365290e8785eb36cb87b89599dba084feb198b03.tar.gz
math-parse-365290e8785eb36cb87b89599dba084feb198b03.tar.xz
Fix NS again.
-rw-r--r--gui.rkt4
1 files changed, 2 insertions, 2 deletions
diff --git a/gui.rkt b/gui.rkt
index d379082..661f138 100644
--- a/gui.rkt
+++ b/gui.rkt
@@ -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))