bugfix: definitions weren't registering (falling out of env)

1 files changed, 13 insertions, 9 deletions

diff --git a/repl.neb b/repl.neb
index e8cb9b5..c661716 100644
--- a/repl.neb
+++ b/repl.neb
@@ -26,18 +26,22 @@
     (print "version: < 0")
 
     (def next-cmd-num 1)
-    (func evaluate-cmd (cmd)
-        (def evaluated (parse-neb cmd))
-        (print (concat "=> " (->string evaluated)))
-        (redef next-cmd-num (+ 1 next-cmd-num))
-        (redef _history_ (append _history_ cmd)))
+
+    (func get-non-empty-input ()
+        (def tmp "")
+        (while (eq? "" tmp)
+            (redef tmp (strip (read-line (prompt next-cmd-num)))))
+        tmp)
 
     ; this is the actual loop part
     (while #true
-        (def this-cmd (strip (read-line (prompt next-cmd-num))))
-        (if (not (eq? "" this-cmd))
+        (def this-cmd (get-non-empty-input))
+        (def evaluated
             (try
-                (evaluate-cmd this-cmd)
-                (print (concat "panic! " _panic_))))))
+                (eval (parse-neb this-cmd))
+                _panic_))
+        (print (concat "=> " (->string evaluated)))
+        (redef next-cmd-num (+ 1 next-cmd-num))
+        (redef _history_ (append _history_ this-cmd))))
 
 (repl)