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/match.c b/match.c
index cfb1ec2a..eeb0d079 100644
--- a/match.c
+++ b/match.c
@@ -3765,7 +3765,7 @@ static val v_load(match_files_ctx *c)
         }
       }
     } else {
-      if (!read_eval_stream(stream, std_error))
+      if (!read_eval_stream(stream, std_error, nil))
         sem_error(specline, lit("load: ~s contains errors"), path, nao);
       return (sym == include_s) ? nil : next_spec_k;
     }