@(load) and @(include) now load Lisp code.

* match.c (v_load): Check txr_lisp_p flag coming out of
open_txr_file and handle the Lisp case usin read_eval_stream.

* parser.c (read_eval_stream, get_parser, parser_errors):
New functions.

* parser.h (read_eval_stream, get_parser, parser_errors):
Declared.

1 files changed, 3 insertions, 0 deletions

diff --git a/parser.h b/parser.h
index bf1c1025..ce276132 100644
--- a/parser.h
+++ b/parser.h
@@ -71,5 +71,8 @@ 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 parser(val stream, val lineno, val primer);
+val get_parser(val stream);
+val parser_errors(val parser);
 void parse_init(void);