New function: intern-fb.

To accompany find-symbol-fb, there is intern-fb, which is like
intern, but searches the fallback list.

* eval.c (eval_init): Register intern-fb intrinsic.

* lib.c (intern_fallback_intrinsic): New function. Does
defaulting and error checks, then calls intern_fallback, just
like intern_intrinsic calls intern.

* lib.h (intern_fallback_intrinsic): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 7ac4c666..b85e73d0 100644
--- a/eval.c
+++ b/eval.c
@@ -6626,6 +6626,7 @@ void eval_init(void)
   reg_fun(intern(lit("use-package"), user_package), func_n2o(use_package, 1));
   reg_fun(intern(lit("unuse-package"), user_package), func_n2o(unuse_package, 1));
   reg_fun(intern(lit("intern"), user_package), func_n2o(intern_intrinsic, 1));
+  reg_fun(intern(lit("intern-fb"), user_package), func_n2o(intern_fallback_intrinsic, 1));
   reg_fun(intern(lit("unintern"), user_package), func_n2o(unintern, 1));
   reg_fun(intern(lit("find-symbol"), user_package), func_n3o(find_symbol, 1));
   reg_fun(intern(lit("find-symbol-fb"), user_package), func_n3o(find_symbol_fb, 1));