From c7ce05d5bd2b6b4f13630583dcfa51becd1242f0 Mon Sep 17 00:00:00 2001
From: Hugo <hugo.hornquist@gmail.com>
Date: Wed, 27 Apr 2016 21:21:10 +0200
Subject: parse and eval now connected to gui

---
 full-eval.rkt |  1 +
 gui.rkt       | 11 ++++++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/full-eval.rkt b/full-eval.rkt
index 1a82dff..c125146 100644
--- a/full-eval.rkt
+++ b/full-eval.rkt
@@ -3,5 +3,6 @@
 (provide full-eval)
 
 (define (full-eval expr)
+  (define ^ expt)
   (eval expr))
 
diff --git a/gui.rkt b/gui.rkt
index 98b4f77..0c465f2 100644
--- a/gui.rkt
+++ b/gui.rkt
@@ -71,13 +71,22 @@
         (lambda (x) (setup-num-btn x bottom-op-panel))
         '(0 "." ^ ))
 
+      (new button%
+           [parent top-op-panel]
+           [label "←"]
+           [callback
+             (lambda (button event)
+               (define str (send msg get-label))
+               (send msg set-label (substring str 0 (- (string-length str) 1))))])
+
 
       (new button%
            [parent bottom-op-panel]
            [label "="]
            [callback
              (lambda (button event)
+               (define ^ expt)
                (send msg set-label (~a
-                       (full-eval (full-parse (send msg get-label))))))])
+                       (eval (full-parse (send msg get-label))))))])
 
       (send frame show #t))
-- 
cgit v1.2.3