bugfix: source lineno off by one under hash bang.

* eval.c (load): When we read and discard a hash bang line,
we must set the parser line number to two.

* parser.c (parser_set_lineno): New function.

* parser.h (parser_set_lineno): Declared.

* txr.c (check_hash_bang): New argument, occurs.
(txr_main): Track whether hash bang has occurred in a new
local variable hb_occurs.  Then, before parsing, if hash bang
has occurred, set the line number to two.

1 files changed, 3 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index ee9ac973..43e499d8 100644
--- a/eval.c
+++ b/eval.c
@@ -4341,7 +4341,9 @@ val load(val target)
 
   open_txr_file(path, &txr_lisp_p, &name, &stream);
 
-  if (!match_str(or2(get_line(stream), lit("")), lit("#!"), nil))
+  if (match_str(or2(get_line(stream), lit("")), lit("#!"), nil))
+    parser_set_lineno(self, stream, two);
+  else
     seek_stream(stream, zero, from_start_k);
 
   uw_simple_catch_begin;