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

[factor.git] / basis / cocoa / subclassing / subclassing.factor

diff --git a/basis/cocoa/subclassing/subclassing.factor b/basis/cocoa/subclassing/subclassing.factor
index 3e66b31e470c09a06bfa036d56da3a1d5cb9c409..5fd1ff86f2150a35ab743ff49a8d708f1169dbfe 100644 (file)
--- a/basis/cocoa/subclassing/subclassing.factor
+++ b/basis/cocoa/subclassing/subclassing.factor
@@ -33,7 +33,7 @@ IN: cocoa.subclassing
     tri ;
 
 : encode-type ( type -- encoded )
-    dup alien>objc-types get at [ ] [ no-objc-type ] ?if ;
+    [ alien>objc-types get at ] [ no-objc-type ] ?unless ;
 
 : encode-types ( return types -- encoding )
     swap prefix [ encode-type "0" append ] map concat ;