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, 1 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index ec694bbb..ccb23d35 100644
--- a/parser.h
+++ b/parser.h
@@ -132,6 +132,7 @@ val parser(val stream, val lineno);
 parser_t *parser_get_impl(val self, val parser);
 val get_parser(val stream);
 val ensure_parser(val stream);
+val parser_set_lineno(val self, val stream, val lineno);
 val parser_errors(val parser);
 val parser_eof(val parser);
 void parse_init(void);