From 068c3e64c94f0fa8cfb3fa867e592a9413c06780 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 4 Apr 2018 23:09:58 -0700 Subject: 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. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') 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), -- cgit v1.2.3