eval: define sys:*load-recursive*

* eval.c (eval_init): The existing variable
sys:*load-recursive* is formally defined. This is necessary if
a form is evaluated from the command line using -p or -e,
which somewhere accesses this variable. txr_main sets up the
variable dynamicaly, but later. It should have an entry for it
in the global environment.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 152006f3..865c97b3 100644
--- a/eval.c
+++ b/eval.c
@@ -6377,6 +6377,7 @@ void eval_init(void)
   reg_fun(intern(lit("load"), user_package), func_n1(load));
   reg_var(load_path_s, nil);
   reg_symacro(intern(lit("self-load-path"), user_package), load_path_s);
+  reg_var(load_recursive_s, nil);
   reg_fun(intern(lit("expand"), system_package), func_n2o(no_warn_expand, 1));
   reg_fun(intern(lit("expand*"), system_package), func_n2o(expand, 1));
   reg_fun(intern(lit("expand-with-free-refs"), system_package),