From fbf525ae910ae48b1e6401fd2307772e214b1baa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 10 Jun 2015 19:32:02 -0700 Subject: Preparing for lisp loading. * parser.c (open_txr_file): Rewritten to take new argument which indicates whether to treat an unsuffixed file as TXR or TXR Lisp, and is updated to indicate which is the case by looking at the suffix. * parser.h (open_txr_file): Declaration updated. * match.c (v_load): Follow change in open_txr_file. * txr.c (txr_main): Likewise. --- match.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'match.c') diff --git a/match.c b/match.c index b6d4163b..ccc1fa37 100644 --- a/match.c +++ b/match.c @@ -3723,8 +3723,9 @@ static val v_load(match_files_ctx *c) int gc = gc_state(0); val stream, name; parser_t parser; + val txr_lisp_p = nil; - open_txr_file(path, &name, &stream); + open_txr_file(path, &txr_lisp_p, &name, &stream); parse_once(stream, name, &parser); gc_state(gc); -- cgit v1.2.3