Allow reseting to previous error stacks

euslisp · Apr 2, 2019 · fd5ce0c · fd5ce0c
1 parent 7ee9f2e
commit fd5ce0c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lisp/l/toplevel.l b/lisp/l/toplevel.l
@@ -291,8 +291,8 @@
    (format *error-output* "~C[0m~%"  #x1b)
    (let ((*replevel* (1+ *replevel*))
 	 (*reptype* "E"))
-      (catch *replevel* (reploop #'toplevel-prompt)))
-   (throw *replevel* nil))
+     (while (catch *replevel* (reploop #'toplevel-prompt))))
+   (throw *replevel* t))
 
 ;;;
 ;;; default toplevel