Preparing for lisp loading.

* parser.c (open_txr_file): Rewritten to take new argument
which indicates whether to treat an unsuffixed file as
TXR or TXR Lisp, and is updated to indicate which is the
case by looking at the suffix.

* parser.h (open_txr_file): Declaration updated.

* match.c (v_load): Follow change in open_txr_file.

* txr.c (txr_main): Likewise.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index 46572b1f..bf1c1025 100644
--- a/parser.h
+++ b/parser.h
@@ -57,7 +57,7 @@ int yylex_destroy(yyscan_t scanner);
 parser_t *yyget_extra(yyscan_t scanner);
 void yyset_extra(parser_t *, yyscan_t);
 void parser_l_init(void);
-void open_txr_file(val spec_file, val *name, val *stream);
+void open_txr_file(val spec_file, val *txr_lisp_p, val *name, val *stream);
 val prime_parser(val parser);
 int parse_once(val stream, val name, parser_t *parser);
 int parse(parser_t *parser);