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, 0 deletions

diff --git a/lib.h b/lib.h
index c22e9890..f3969095 100644
--- a/lib.h
+++ b/lib.h
@@ -894,6 +894,7 @@ val symbol_needs_prefix(val self, val package, val sym);
 val find_symbol(val name, val package, val notfound_val);
 val find_symbol_fb(val name, val package, val notfound_val);
 val intern(val str, val package);
+val intern_intrinsic(val str, val package_in);
 val unintern(val sym, val package);
 val rehome_sym(val sym, val package);
 val package_foreign_symbols(val package);