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, 2 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index 16308570..bc6a3364 100644
--- a/parser.h
+++ b/parser.h
@@ -92,7 +92,8 @@ INLINE val rlcp(val to, val from)
 }
 val rlcp_tree(val to, val from);
 val regex_parse(val string, val error_stream);
-val lisp_parse(val source, val error_stream, val error_return_val, val name);
+val lisp_parse(val source_in, val error_stream, val error_return_val,
+               val name_in, val lineno);
 val read_eval_stream(val stream, val error_stream, val hash_bang_support);
 #if HAVE_TERMIOS
 val repl(val bindings, val in_stream, val out_stream);