From a876130d9a0819f13998b2eb591df7e0726dba25 Mon Sep 17 00:00:00 2001
From: mryouse
Date: Sun, 10 Jul 2022 20:41:54 +0000
Subject: bugfix: panics shouldn't increment or be included in history

---
 repl.neb | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'repl.neb')

diff --git a/repl.neb b/repl.neb
index c661716..77faed6 100644
--- a/repl.neb
+++ b/repl.neb
@@ -36,12 +36,18 @@
     ; this is the actual loop part
     (while #true
         (def this-cmd (get-non-empty-input))
+        (def panicked #false) ; we may not need this two-step if there's a :panic type
         (def evaluated
             (try
                 (eval (parse-neb this-cmd))
-                _panic_))
-        (print (concat "=> " (->string evaluated)))
-        (redef next-cmd-num (+ 1 next-cmd-num))
-        (redef _history_ (append _history_ this-cmd))))
+                (block
+                    (redef panicked #true)
+                    _panic_)))
+        (if panicked
+            (print (concat "panic! " evaluated))
+            (block
+                (print (concat "=> " (->string evaluated)))
+                (redef next-cmd-num (+ 1 next-cmd-num))
+                (redef _history_ (append _history_ this-cmd))))))
 
 (repl)
-- 
cgit v1.2.3