txr: regression: lack of file name in error messages.

This was broken on April 21, 2019 in commit
2e36e0feae8d1dd75c8410b365d7dc33b30ce66b (April 21, 2019)
which changed parse_once in such a way that the name
being passed down was no longer stored in the parser.
The ensure_parser function being relied upon doesn't take on
the responsibility of propagating the name from the stream
to the parser, so the parser ends up with a nil name.

Let's just smooth this over by having ensure_parser take
a name parameter. If ensure_parser creates a new parser, it
puts in the name. If the name is nil, then it is
taken from the stream.

* eval.c (load): Pass name to ensure_parser.

* match.c (v_load): Likewise.

* parser.c (parser): Take name parameter, and plant into newly
constructed parser.
(ensure_parser): Take name parameter. When creating a parser,
give it that name, or if name is specified as nil, then
give it the name taken from the stream.
(parser_set_lineno): Pass nil name to ensure_parser.
(lisp_parse_impl, read_file_common): Pass name to
ensure_parser.

* parser.h (parser, ensure_parser): Declarations updated.

* parser.y (parse_once): Pass name to ensure_parser.

* txr.c (txr_main): Pass spec_file_str to ensure_parser.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index 43f4f587..c2d809c9 100644
--- a/parser.y
+++ b/parser.y
@@ -1848,7 +1848,7 @@ int parse_once(val self, val stream, val name)
 #if CONFIG_DEBUG_SUPPORT
   unsigned dbg_state = debug_clear(opt_dbg_expansion ? 0 : DBG_ENABLE);
 #endif
-  val parser_obj = ensure_parser(stream);
+  val parser_obj = ensure_parser(stream, name);
   parser_t *parser = parser_get_impl(self, parser_obj);
   parser->rec_source_loc = 1;