From de547e4ec4e375531ac3d797c3e82ff2544f9464 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 7 Jun 2015 20:04:18 -0700 Subject: * 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. --- parser.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'parser.c') 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); } -- cgit v1.2.3