cocoa.pasteboard: use correct ?transmute

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

diff --git a/basis/cocoa/pasteboard/pasteboard.factor b/basis/cocoa/pasteboard/pasteboard.factor
index 6deebbe3e6767b27bb07c30765c633988698d5f5..d14ed6aa84b0f12f752bdbd10406d0fed0c3f04e 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 ] ?transmute ;
 
 : set-pasteboard-types ( seq pasteboard -- )
     swap <CFArray> -> autorelease f -> declareTypes:owner: drop ;