diff options
Diffstat (limited to 'gui.rkt')
-rw-r--r-- | gui.rkt | 9 |
1 files changed, 4 insertions, 5 deletions
@@ -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)) '(* - +)) |