preven slime from exiting on repl error

2020-03-10 13:57:38 +01:00
parent aac3985a61
commit 7559646ada
1 changed files with 12 additions and 4 deletions
@@ -584,13 +584,21 @@ namespace Slime {

        Lisp_Object* parsed, * evaluated;
        while (true) {
-            delete_error();
+            if (Globals::error) {
+                log_error();
+                delete_error();
+            }
            fputs("> ", stdout);
            line = read_expression();
-            try_void parsed = Parser::parse_single_expression(line);
+            parsed = Parser::parse_single_expression(line);
+            if (Globals::error) {
+                continue;
+            }
            free(line);
-            try_void evaluated = eval_expr(parsed);
-            // try_void evaluated = eval_expr(parsed);
+            evaluated = eval_expr(parsed);
+            if (Globals::error) {
+                continue;
+            }
            if (evaluated && evaluated != Memory::nil) {
                print(evaluated);
            }