Use gc in repl

diff --git a/src/script/repl.c b/src/script/repl.c
index 77614c31d26dfbf9588520b581bb0eb7b0057e5d..f4f3dd7415c6ff2f0f3e62ee2c59901623033bf1 100644 (file)
--- a/src/script/repl.c
+++ b/src/script/repl.c
@@ -32,14 +32,11 @@ int main(int argc, char *argv[])
         struct EvalResult eval_result = eval(gc, NIL(gc), parse_result.expr);
         if (eval_result.is_error) {
             print_eval_error(stderr, eval_result);
-            destroy_expr_rec(parse_result.expr);
-            destroy_expr_rec(eval_result.expr);
             continue;
         }
 
+        gc_collect(gc, eval_result.expr);
         print_expr_as_sexpr(eval_result.expr);
-        destroy_expr_rec(parse_result.expr);
-        destroy_expr_rec(eval_result.expr);
     }
 
     return 0;