* 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, 2 deletions

diff --git a/parser.c b/parser.c
index 4bed7be9..4b92cffe 100644
--- a/parser.c
+++ b/parser.c
@@ -111,7 +111,7 @@ val regex_parse(val string, val error_stream)
   {
     int gc = gc_state(0);
     val name = if3(std_error != std_null, lit("regex"), lit(""));
-    parse(stream, name, &parser);
+    parse_once(stream, name, &parser);
     gc_state(gc);
   }
   std_error = save_stream;
@@ -145,7 +145,7 @@ val lisp_parse(val source_in, val error_stream, val error_return_val, val name_i
   {
     int gc = gc_state(0);
     name = if3(std_error != std_null, name, lit(""));
-    parse(stream, name, &parser);
+    parse_once(stream, name, &parser);
     gc_state(gc);
   }