(#326) error as struct Expr

[nothing.git] / src / script / repl.c

diff --git a/src/script/repl.c b/src/script/repl.c
index 068fca839eedd40e5c18777e76b6ba886e92bfe3..28d7c981410fbf2dc23896c92637261335b358ca 100644 (file)
--- a/src/script/repl.c
+++ b/src/script/repl.c
@@ -37,11 +37,6 @@ int main(int argc, char *argv[])
         gc_inspect(gc);
 
         struct EvalResult eval_result = eval(gc, scope, parse_result.expr);
-        scope = eval_result.scope;
-        if (eval_result.is_error) {
-            print_eval_error(stderr, eval_result);
-            continue;
-        }
         printf("After eval:\t");
         gc_inspect(gc);
 
@@ -53,6 +48,10 @@ int main(int argc, char *argv[])
         print_expr_as_sexpr(eval_result.scope);
         printf("\n");
 
+        if (eval_result.is_error) {
+            printf("Error:\t");
+        }
+
         print_expr_as_sexpr(eval_result.expr);
         printf("\n");
     }