summaryrefslogtreecommitdiff
path: root/gui.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'gui.rkt')
-rw-r--r--gui.rkt9
1 files changed, 4 insertions, 5 deletions
diff --git a/gui.rkt b/gui.rkt
index 0c465f2..d379082 100644
--- a/gui.rkt
+++ b/gui.rkt
@@ -7,12 +7,11 @@
(require (planet williams/table-panel:1:2/table-panel))
;(require table-panel)
-(require "../useful/enumerate-interval.rkt")
-(require "simple-eval.rkt")
-(require "simple-parse.rkt")
-(require "full-eval.rkt")
(require "full-parse.rkt")
+(define ns (current-namespace))
+(namespace-set-variable-value! '^ expt #t ns)
+
(define (show-window)
(define frame (new frame% [label "Calculator"]))
@@ -63,7 +62,7 @@
(map
(lambda (x) (setup-num-btn x number-panel))
- (enumerate-interval 1 9))
+ (range 1 10))
(map
(lambda (x) (setup-num-btn x left-op-panel))
'(* - +))