lib: streamline interning slightly.

We get rid of some defaulting and error checks from interning.
This saves a few cycles on startup in the large number of
intern calls that are performed.

* eval.c (eval_init): Wire the intern intrinsic to the new
intern_intrinsic function rather than intern.

* lib.c (intern): Remove package lookup and error check on str
argument.
(intern_intrinsic): New function, which has the package lookup
and error check.
(intern_fallback): Remove package lookup and error check.

* lib.h (intern_intrinsic): Declared.

* txr.c (txr_main): Fix one instance of an intern call that
relies on defaulting of the second argument, by passing
cur_package.

1 files changed, 1 insertions, 1 deletions

diff --git a/txr.c b/txr.c
index be9ebc5c..3bb520ae 100644
--- a/txr.c
+++ b/txr.c
@@ -636,7 +636,7 @@ int txr_main(int argc, char **argv)
       val dopt_arg = sub(arg, two, t);
       cons_bind(var, def, split_str(dopt_arg, lit("=")));
       val deflist = if2(def, split_str(car(def), lit(",")));
-      val sym = intern(var, nil);
+      val sym = intern(var, cur_package);
 
       if (rest(deflist))
         bindings = cons(cons(sym, deflist), bindings);