factor: ?if to ?if-old

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

diff --git a/basis/cocoa/pasteboard/pasteboard.factor b/basis/cocoa/pasteboard/pasteboard.factor
index c4e54c2266d61c68da3f614a91335f673633d65d..6deebbe3e6767b27bb07c30765c633988698d5f5 100644 (file)
--- a/basis/cocoa/pasteboard/pasteboard.factor
+++ b/basis/cocoa/pasteboard/pasteboard.factor
@@ -28,7 +28,7 @@ CONSTANT: NSStringPboardType "NSStringPboardType"
 
 : ?pasteboard-string ( pboard error -- str/f )
     over pasteboard-string? [
-        swap pasteboard-string [ ] [ pasteboard-error ] ?if
+        swap pasteboard-string [ ] [ pasteboard-error ] ?if-old
     ] [
         nip pasteboard-error
     ] if ;