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/lib.h b/lib.h
index f3969095..34b10123 100644
--- a/lib.h
+++ b/lib.h
@@ -901,6 +901,7 @@ val package_foreign_symbols(val package);
 val package_fallback_list(val package);
 val set_package_fallback_list(val package, val list);
 val intern_fallback(val str, val package);
+val intern_fallback_intrinsic(val str, val package_in);
 val symbolp(val sym);
 val symbol_name(val sym);
 val symbol_package(val sym);