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.

1 files changed, 1 insertions, 1 deletions

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);