From 37d6ecfd008f47b1087404fc17136655e430ef98 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 29 Jan 2017 21:33:30 -0800
Subject: Suppress undef warnings in command line file.

* txr.c (txr_main): Bind sys:*load-recursive* to t before
reading and evaluating forms, then bind to nil before entering
repl.
---
 txr.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'txr.c')

diff --git a/txr.c b/txr.c
index 0e38815e..2c96d34f 100644
--- a/txr.c
+++ b/txr.c
@@ -1012,6 +1012,8 @@ int txr_main(int argc, char **argv)
     reg_varl(car(binding), cdr(binding));
   }
 
+  env_vbind(dyn_env, load_recursive_s, t);
+
   {
     val result = read_eval_stream(parse_stream, std_error, t);
 
@@ -1033,6 +1035,7 @@ repl:
   reg_var(args_s, or2(orig_args, arg_list));
   reg_varl(intern(lit("self-path"), user_package), lit("listener"));
   env_vbind(dyn_env, package_s, user_package);
+  env_vbind(dyn_env, load_recursive_s, nil);
   repl(bindings, std_input, std_output);
 #endif
   return 0;
-- 
cgit v1.2.3