From ba94da1da968be68815249b3de2da0d67d7c966e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 28 Nov 2019 23:39:07 -0800 Subject: 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). --- lib.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- cgit v1.2.3