packages: find-symbol behaving like find-symbol-fb.

* lib.c (find_symbol): This function is identical to
find_symbol_fb. The code for searching the fallback list must
be removed.

1 files changed, 0 insertions, 11 deletions

diff --git a/lib.c b/lib.c
index 3d168bf4..dff01c5a 100644
--- a/lib.c
+++ b/lib.c
@@ -6640,17 +6640,6 @@ val find_symbol(val name, val package_in, val notfound_val_in)
       return cdr(cell);
   }
 
-  {
-    val fallback = get_hash_userdata(package->pk.symhash);
-
-    for (; fallback; fallback = cdr(fallback)) {
-      val fb_pkg = car(fallback);
-      val cell = gethash_e(self, fb_pkg->pk.symhash, name);
-      if (cell)
-        return cdr(cell);
-    }
-  }
-
   return default_null_arg(notfound_val_in);
 }