New listener feature: greedy evaluation feature.

* eval.c (eval_intrinsic_noerr): New function.

* eval.h (eval_intrinsic_noerr): Declared.

* parser.c (listener_greedy_eval_s): New symbol variable.
(repl): Implement greedy evaluation loop, enabled by
the *listener-greedy-eval-p* special.
(parse_init): Intern the *listener-greedy-eval-p* symbol,
storing it in the listener_greedy_eval_s variable.
Register the symbol as a special variable.

* txr.1: Documented *listener-greedy-eval-p* variable
and the greedy evaluation feature that it controls.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 966361de..8cd5516e 100644
--- a/eval.h
+++ b/eval.h
@@ -69,6 +69,7 @@ val apply_intrinsic(val fun, val args);
 val eval_progn(val forms, val env, val ctx_form);
 val eval(val form, val env, val ctx_form);
 val eval_intrinsic(val form, val env);
+val eval_intrinsic_noerr(val form, val env, val *error_p);
 void trace_check(val name);
 val format_field(val string_or_list, val modifier, val filter, val eval_fun);
 val subst_vars(val forms, val env, val filter);