diff options
-rw-r--r-- | match.c | 3 | ||||
-rw-r--r-- | txr.c | 4 |
2 files changed, 5 insertions, 2 deletions
@@ -4245,6 +4245,9 @@ static val v_load(match_files_ctx *c) dyn_env = saved_dyn_env; + if (!rec) + uw_release_deferred_warnings(); + uw_unwind { close_stream(stream, nil); if (!rec) @@ -969,6 +969,8 @@ int txr_main(int argc, char **argv) reg_var(args_s, or2(orig_args, arg_list)); reg_varl(intern(lit("self-path"), user_package), spec_file_str); + env_vbind(dyn_env, load_recursive_s, t); + if (!txr_lisp_p) { int gc = gc_state(0); @@ -1012,8 +1014,6 @@ 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); |