kernel: use ?call

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

diff --git a/basis/cocoa/pasteboard/pasteboard.factor b/basis/cocoa/pasteboard/pasteboard.factor
index 752029872e6cb0e41f8a911638d7efbcca95e124..35ce7327596c8c1806defbdd48cb4f3068da465b 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:
-    [ CF>string ] ?transmute ;
+    [ CF>string ] ?call ;
 
 : set-pasteboard-types ( seq pasteboard -- )
     swap <CFArray> -> autorelease f -> declareTypes:owner: drop ;