* match.c (v_load): Call parse_once rater than parse.

* parser.c (regex_parse): Likewise.

* txr.c (txr_main): Likewise.

* parser.h (parse): Declaration updated.
(parse_once): Declared.

* parser.y (parse_once): New function, same as old parse implementation.
(parse): Becomes one argument function which works with a previously
initialized parser and continues the parse.

1 files changed, 2 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index 01e927fe..e1de30b2 100644
--- a/parser.h
+++ b/parser.h
@@ -56,7 +56,8 @@ 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 *name, val *stream);
-int parse(val stream, val name, parser_t *parser);
+int parse_once(val stream, val name, parser_t *parser);
+int parse(parser_t *parser);
 val source_loc(val form);
 val source_loc_str(val form);
 val rlset(val form, val info);