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

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

diff --git a/basis/cocoa/pasteboard/pasteboard.factor b/basis/cocoa/pasteboard/pasteboard.factor
index 06ba2442c6cc0ec00c7fb5e3949a8a96411de6cc..c4e54c2266d61c68da3f614a91335f673633d65d 100644 (file)
--- a/basis/cocoa/pasteboard/pasteboard.factor
+++ b/basis/cocoa/pasteboard/pasteboard.factor
@@ -12,7 +12,7 @@ CONSTANT: NSStringPboardType "NSStringPboardType"
 
 : pasteboard-string ( pasteboard -- str )
     NSStringPboardType <NSString> -> stringForType:
-    dup [ CF>string ] when ;
+    [ CF>string ] transmute ;
 
 : set-pasteboard-types ( seq pasteboard -- )
     swap <CFArray> -> autorelease f -> declareTypes:owner: drop ;