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

diff --git a/lib.c b/lib.c
index 9d40f21c..d07a03ca 100644
--- a/lib.c
+++ b/lib.c
@@ -5532,6 +5532,17 @@ val intern_fallback(val str, val package)
   }
 }
 
+val intern_fallback_intrinsic(val str, val package_in)
+{
+  val self = lit("intern-fallback");
+  val package = get_package(self, package_in, nil);
+
+  if (!stringp(str))
+    uw_throwf(error_s, lit("~a: name ~s isn't a string"), self, str, nao);
+
+  return intern_fallback(str, package);
+}
+
 val symbolp(val sym)
 {
   switch (type(sym)) {