kernel: use ?call

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 ;

diff --git a/basis/xmode/marker/marker.factor b/basis/xmode/marker/marker.factor
index 5c211affa4ebc281c07df26b2f5b2cdd7f383607..cb8cb364454c90327e89d34f86061baf57343684 100644 (file)
--- a/basis/xmode/marker/marker.factor
+++ b/basis/xmode/marker/marker.factor
@@ -201,7 +201,7 @@ GENERIC: handle-rule-end ( match-count rule -- )
     context get
     [ in-rule-set>> escape-rule>> ] [
         parent>> in-rule-set>>
-        [ escape-rule>> ] ?transmute
+        [ escape-rule>> ] ?call
     ] ?unless ;
 
 : check-escape-rule ( rule -- ? )

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 002a52bd5b50c62d35944d254946d036cd7f93d6..5d9901440e4e94c2da7b45e6f795741f613fac24 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -58,7 +58,7 @@ ERROR: number-expected ;
     [ [ string>number ] [ no-word ] ?unless ] ?unless ;
 
 : ?scan-datum ( -- word/number/f )
-    ?scan-token [ parse-datum ] ?transmute ;
+    ?scan-token [ parse-datum ] ?call ;
 
 : scan-datum ( -- word/number )
     ?scan-datum [ \ word throw-unexpected-eof ] unless* ;