kernel: add transmute and some use cases

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

diff --git a/basis/alien/libraries/finder/finder.factor b/basis/alien/libraries/finder/finder.factor
index 876880608d323f5a2370446d2d0ab47533288779..0a16dea39076f37af54a1830806053e238510e27 100644 (file)
--- a/basis/alien/libraries/finder/finder.factor
+++ b/basis/alien/libraries/finder/finder.factor
@@ -1,11 +1,10 @@
-USING: accessors alien.libraries kernel sequences system vocabs
-;
+USING: accessors alien.libraries kernel sequences system vocabs ;
 IN: alien.libraries.finder
 
 HOOK: find-library* os ( name -- path/f )
 
 : find-library ( name -- path/library-not-found )
-    dup find-library* [ nip ] when* ;
+    [ find-library* ] transmute ;
 
 : ?update-library ( name path abi -- )
     pick lookup-library [ dll>> dll-valid? ] [ f ] if* [