factor: use ?call

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

diff --git a/basis/cocoa/nibs/nibs.factor b/basis/cocoa/nibs/nibs.factor
index 548dece51901629e02a232418c351c3782b3525d..9c051308b13008971001dbda3eecda8b1bb9b5d7 100644 (file)
--- a/basis/cocoa/nibs/nibs.factor
+++ b/basis/cocoa/nibs/nibs.factor
@@ -11,7 +11,7 @@ IN: cocoa.nibs
 
 : nib-named ( nib-name -- anNSNib )
     <NSString> NSNib -> alloc swap f -> initWithNibNamed:bundle:
-    dup [ -> autorelease ] when ;
+    [ -> autorelease ] ?call ;
 
 : nib-objects ( anNSNib -- objects/f )
     f