From dfc3e1de7b23b0e0244253f34508d8cc24e01e1b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 30 Oct 2018 06:36:01 -0700 Subject: initialization: use self_path_s instead of re-interning. * txr.c (txr_main): When establishing self-path with a new value, use self_path_s instead of calling intern on the symbol name again. --- txr.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/txr.c b/txr.c index a70c0ed0..1ef43001 100644 --- a/txr.c +++ b/txr.c @@ -1003,7 +1003,7 @@ 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); + reg_varl(self_path_s, spec_file_str); env_vbind(dyn_env, load_recursive_s, t); -- cgit v1.2.3