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/parser.h b/parser.h
index ce276132..e6f531f2 100644
--- a/parser.h
+++ b/parser.h
@@ -71,7 +71,7 @@ INLINE val rlcp(val to, val from)
 val rlcp_tree(val to, val from);
 val regex_parse(val string, val error_stream);
 val lisp_parse(val source, val error_stream, val error_return_val, val name);
-val read_eval_stream(val stream, val error_stream);
+val read_eval_stream(val stream, val error_stream, val hash_bang_support);
 val parser(val stream, val lineno, val primer);
 val get_parser(val stream);
 val parser_errors(val parser);