Syntax errors refer to REPL line number.

* eval.c (eval_init): Registrations of lisp-parse and read must
account for new optional argument.

* lib.c (func_n5o): New function.

* lib.h (func_n5o): Declared.

* parser.c (lisp_parse): New argument for passing in line number.
This is punched into the parser object.
(read_eval_stream): Call to lisp_parse defaults new argument.
(repl): Pass repl line number to lisp_parse.

* parser.h (lisp_parse): Declaration updated.

* txr.c (txr_main): Call to lisp_parse defaults new argument.

1 files changed, 3 insertions, 2 deletions

diff --git a/txr.c b/txr.c
index 5786c044..67069e1a 100644
--- a/txr.c
+++ b/txr.c
@@ -580,7 +580,7 @@ int txr_main(int argc, char **argv)
         spec_file = arg;
         break;
       case 'e':
-        eval_intrinsic(lisp_parse(arg, std_error, colon_k, colon_k),
+        eval_intrinsic(lisp_parse(arg, std_error, colon_k, colon_k, colon_k),
                        make_env(bindings, nil, nil));
         evaled = t;
         break;
@@ -593,7 +593,8 @@ int txr_main(int argc, char **argv)
                                             if3(c_chr(opt) == 'P',
                                                 pprinl,
                                                 tprint));
-          pf(eval_intrinsic(lisp_parse(arg, std_error, colon_k, colon_k),
+          pf(eval_intrinsic(lisp_parse(arg, std_error, colon_k,
+                                       colon_k, colon_k),
                             make_env(bindings, nil, nil)), std_output);
           evaled = t;
         }