Handle setting of parse name through prime_parser.

* parser.c (prime_parser): Take name as argument,
and install it into parser.
(lisp_parser): Pass name to parse, instead of setting it
in the parser object.

* parser.y (parse): Take name as argument and pass
down to prime_parser.

* parser.h (prime_parser, parse): Declarations updated.

1 files changed, 2 insertions, 2 deletions

diff --git a/parser.h b/parser.h
index 054c0ee1..ccc1ad23 100644
--- a/parser.h
+++ b/parser.h
@@ -59,9 +59,9 @@ parser_t *yyget_extra(yyscan_t scanner);
 void yyset_extra(parser_t *, yyscan_t);
 void parser_l_init(void);
 void open_txr_file(val spec_file, val *txr_lisp_p, val *name, val *stream);
-void prime_parser(parser_t *, int hold_byte);
+void prime_parser(parser_t *, int hold_byte, val name);
 int parse_once(val stream, val name, parser_t *parser);
-int parse(parser_t *parser);
+int parse(parser_t *parser, val name);
 val source_loc(val form);
 val source_loc_str(val form);
 val rlset(val form, val info);