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.

1 files changed, 1 insertions, 1 deletions

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);
   }