repl: groundwork for recursive listener invocation.

* parser.c (lino_ctx, repl_level): New static variable.
(repl): Increment repl_level on entry and decrement on exit.
On the initial entry, allocate the lino_t object, storing it
in the new static variable. Free it on outermost exit.
The number of > characters in the prompt indicates the
nesting level. The function now takes an environment
parameter, which is applied to the evaluation of the input
form. The intent is to be able to supply symbol macros which
expand to function calls implementing debugger commands.
(parser_init): Register sys:repl intrinsic.

* parser.h (repl): Declaration updated.

* txr.c (txr_main): Pass nil environment parameter to repl

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.h b/parser.h
index a0fd7e73..246832ab 100644
--- a/parser.h
+++ b/parser.h
@@ -124,7 +124,7 @@ val iread(val source_in, val error_stream, val error_return_val,
 val read_eval_stream(val self, val stream, val error_stream);
 val read_compiled_file(val self, val stream, val error_stream);
 #if HAVE_TERMIOS
-val repl(val bindings, val in_stream, val out_stream);
+val repl(val bindings, val in_stream, val out_stream, val env);
 #endif
 void parser_common_init(parser_t *);
 void parser_cleanup(parser_t *);