Erroneous lines must go into history also.

* parser.c (repl): If an exception is thrown, we
record a nil value for the line backreference
variable, and add the line to history.

1 files changed, 8 insertions, 4 deletions

diff --git a/parser.c b/parser.c
index e7dab1ca..f64c4681 100644
--- a/parser.c
+++ b/parser.c
@@ -498,6 +498,9 @@ val repl(val bindings, val in_stream, val out_stream)
     val prompt = format(nil, lit("~a> "), counter, nao);
     val prev_counter = counter;
     val var_counter = mod(counter, num_fast(100));
+    val var_name = format(nil, lit("*~a"), var_counter, nao);
+    val var_sym = intern(var_name, user_package);
+
     char *prompt_u8 = utf8_dup_to(c_str(prompt));
 
     reg_varl(counter_sym, counter);
@@ -524,10 +527,7 @@ val repl(val bindings, val in_stream, val out_stream)
       if (value == quit_k) {
         done = t;
       } else {
-        val var_name = format(nil, lit("*~a"), var_counter, nao);
-        val sym = intern(var_name, user_package);
-
-        reg_varl(sym, value);
+        reg_varl(var_sym, value);
         sethash(result_hash, var_counter, value);
         prinl(value, out_stream);
         lino_hist_add(ls, line_u8);
@@ -535,6 +535,10 @@ val repl(val bindings, val in_stream, val out_stream)
     }
 
     uw_catch (exsym, exvals) {
+      reg_varl(var_sym, nil);
+      sethash(result_hash, var_counter, nil);
+      lino_hist_add(ls, line_u8);
+
       if (uw_exception_subtype_p(exsym, syntax_error_s)) {
         /* suppress syntax error exceptions: uninformative in the repl */
       } else if (uw_exception_subtype_p(exsym, error_s)) {