load: tolerate hash bang files.

* eval.c (load): Consume the first line of the input file if
it starts with hash bang.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 05c07ce8..1555956d 100644
--- a/eval.c
+++ b/eval.c
@@ -4241,6 +4241,9 @@ val load(val target)
 
   open_txr_file(path, &txr_lisp_p, &name, &stream);
 
+  if (!match_str(or2(get_line(stream), lit("")), lit("#!"), nil))
+    seek_stream(stream, zero, from_start_k);
+
   uw_simple_catch_begin;
 
   dyn_env = make_env(nil, nil, dyn_env);