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, 8 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index adc73095..597a5f81 100644
--- a/lib.c
+++ b/lib.c
@@ -4238,6 +4238,14 @@ val func_n4o(val (*fun)(val, val, val, val), int reqargs)
   return obj;
 }
 
+val func_n5o(val (*fun)(val, val, val, val, val), int reqargs)
+{
+  val obj = func_n5(fun);
+  obj->f.optargs = 5 - reqargs;
+  return obj;
+}
+
+
 val func_n1ov(val (*fun)(val, varg), int reqargs)
 {
   val obj = func_n1v(fun);