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

0 files changed, 0 insertions, 0 deletions