From 365290e8785eb36cb87b89599dba084feb198b03 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 7 Feb 2020 15:04:00 +0100
Subject: Fix NS again.

---
 gui.rkt | 4 ++--
 1 file 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))
-- 
cgit v1.2.3