alien.libraries.finder: remove find-first-function for now.

diff --git a/basis/alien/libraries/finder/finder.factor b/basis/alien/libraries/finder/finder.factor
index ab140569df51097eae5b0969a21381ac6b66b787..8c26d23973de66db1794ece71a59034f9cccade2 100644 (file)
--- a/basis/alien/libraries/finder/finder.factor
+++ b/basis/alien/libraries/finder/finder.factor
@@ -1,5 +1,5 @@
-USING: accessors alien.libraries assocs kernel namespaces
-sequences system vocabs ;
+USING: accessors alien.libraries kernel sequences system vocabs
+;
 IN: alien.libraries.finder
 
 HOOK: find-library* os ( name -- path/f )
@@ -14,16 +14,6 @@ HOOK: find-library* os ( name -- path/f )
         [ find-library ] [ update-library ] bi*
     ] if ;
 
-
-ERROR: library-missing library ;
-
-: find-first-function ( names library -- alien/f name )
-    libraries get ?at [
-        dll>> '[ _ dlsym ] map-find
-    ] [
-        library-missing
-    ] if ; inline
-
 ! Try to find the library from a list, but if it's not found,
 ! try to open a library that is the first name in that list anyway
 ! or "library_not_found" as a last resort for better debugging.