intern-fb: bugfix: optional argument handling.

* lib.c (intern_fallback_intrinsic): The missing_ok parameter
of get_package must be given a true argument, because
package_in is optional. When it is missing, it is represented
by the colon symbol, and if missing_ok is false, then
get_package treats this colon symbol as the package name ""
(the name of that symbol).

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index de960519..feb911b4 100644
--- a/lib.c
+++ b/lib.c
@@ -5669,7 +5669,7 @@ val intern_fallback(val str, val package)
 val intern_fallback_intrinsic(val str, val package_in)
 {
   val self = lit("intern-fb");
-  val package = get_package(self, package_in, nil);
+  val package = get_package(self, package_in, t);
 
   if (!stringp(str))
     uw_throwf(error_s, lit("~a: name ~s isn't a string"), self, str, nao);