factor: use ??if instead of ?if-old

[factor.git] / extra / smalltalk / compiler / compiler.factor

diff --git a/extra/smalltalk/compiler/compiler.factor b/extra/smalltalk/compiler/compiler.factor
index a0e3f07e250bfc80e703dd17a03f28696ec79868..8327b0ac39171d27b5cb507cc25aeee0e788a879 100644 (file)
--- a/extra/smalltalk/compiler/compiler.factor
+++ b/extra/smalltalk/compiler/compiler.factor
@@ -144,7 +144,7 @@ ERROR: no-word name ;
 
 M: ast-foreign compile-ast
     nip
-    [ class>> dup ":" split1 lookup-word [ ] [ no-word ] ?if ]
+    [ class>> [ ":" split1 lookup-word ] [ no-word ] ?unless ]
     [ name>> ] bi define-foreign
     [ nil ] ;