factor: use ?call

[factor.git] / basis / alien / libraries / finder / freebsd / freebsd.factor

diff --git a/basis/alien/libraries/finder/freebsd/freebsd.factor b/basis/alien/libraries/finder/freebsd/freebsd.factor
index 8523717cb65e8280504d304c9af468ec69847f63..b7c7bd19e259ce3e540fd87e4b9503aeeb51a3ec 100644 (file)
--- a/basis/alien/libraries/finder/freebsd/freebsd.factor
+++ b/basis/alien/libraries/finder/freebsd/freebsd.factor
@@ -23,5 +23,5 @@ PRIVATE>
 
 M: freebsd find-library*
     "l" prepend load-ldconfig-cache
-    [ name-matches? ] with find nip ?first dup [ ".so" append ] when ;
+    [ name-matches? ] with find nip ?first [ ".so" append ] ?call ;