summaryrefslogtreecommitdiffstats
path: root/parser.c
diff options
context:
space:
mode:
Diffstat (limited to 'parser.c')
-rw-r--r--parser.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/parser.c b/parser.c
index 82cdaa21..5d24fcb0 100644
--- a/parser.c
+++ b/parser.c
@@ -569,10 +569,10 @@ val repl(val bindings, val in_stream, val out_stream)
val line = string_utf8(line_u8);
val form = lisp_parse(line, out_stream, colon_k,
lit("line"), prev_counter);
- val value = eval_intrinsic(form, repl_env);
- if (value == quit_k) {
+ if (form == quit_k) {
done = t;
} else {
+ val value = eval_intrinsic(form, repl_env);
reg_varl(var_sym, value);
sethash(result_hash, var_counter, value);
prinl(value, out_stream);