factor: use ?call

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

diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index 0c17e186f9d00b66e7244d50dfc4702b6bc838d5..5d6aee0a2886bfcc44b1033547869c08add25740 100644 (file)
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -41,7 +41,7 @@ GENERIC: library-dll ( obj -- dll )
 M: f library-dll ;
 
 M: library library-dll
-    dup [ dll>> ] when ;
+    [ dll>> ] ?call ;
 
 M: string library-dll ( library -- dll )
     lookup-library library-dll ;