factor: use ?call

[factor.git] / basis / compiler / cfg / builder / alien / alien-tests.factor

diff --git a/basis/compiler/cfg/builder/alien/alien-tests.factor b/basis/compiler/cfg/builder/alien/alien-tests.factor
index 46eef2e0e5315e7a00cf334bd6ba3a0104382a31..dc88fa935cf89bca981aa3d2e958c2aa9454593f 100644 (file)
--- a/basis/compiler/cfg/builder/alien/alien-tests.factor
+++ b/basis/compiler/cfg/builder/alien/alien-tests.factor
@@ -49,7 +49,7 @@ ${
 } [
     f f cdecl f "libc" "malloc" alien-invoke-params boa
     caller-linkage
-    dup [ path>> alien>native-string ] when
+    [ path>> alien>native-string ] ?call
 ] unit-test
 
 SYMBOL: foo