From 7e13dd271df070671f9ef59969307d1bfb045ffb Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 2 Jul 2015 06:13:18 -0700 Subject: Hash-bang support for .tl files. * parser.c (read_eval_stream): New boolean argument to request hash bang support. * parser.h (read_eval_stream): Declaration updated. * eval.c (sys_load): Pass new thid argument to read_eval_stream, to decline hash bang support. * match.c (v_load): Likewise. * txr.c (txr_main): Request hash bang support from read_eval_stream. Thus files referenced from the txr command line can have a #! line, which is ignored. --- eval.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index c7cd95d8..eae9e467 100644 --- a/eval.c +++ b/eval.c @@ -2834,7 +2834,7 @@ static val sys_load(val target, val sloc) eval_error(sloc, lit("load doesn't process .txr files"), nao); } - if (!read_eval_stream(stream, std_error)) { + if (!read_eval_stream(stream, std_error, nil)) { rlset(sloc, sloc); eval_error(sloc, lit("load: ~s contains errors"), path, nao); } -- cgit v1.2.3