From 6eee79c228000779c1b0eab5e67073ad1be83516 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 2 Jul 2021 00:25:58 -0700
Subject: 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.
---
 lib.c | 11 -----------
 1 file changed, 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);
 }
 
-- 
cgit v1.2.3