core: rename parse-call( to parse-call-paren

diff --git a/basis/eval/eval.factor b/basis/eval/eval.factor
index eb551b1f2a5a39b6c061c3f13ca80fdf350ccd54..66b783958f76804cf75e2bd125eb2e305584f7b3 100644 (file)
--- a/basis/eval/eval.factor
+++ b/basis/eval/eval.factor
@@ -14,7 +14,7 @@ IN: eval
 : eval ( str effect -- )
     [ (eval) ] with-file-vocabs ; inline
 
-SYNTAX: eval( \ eval parse-call( ;
+SYNTAX: eval( \ eval parse-call-paren ;
 
 : (eval>string) ( str -- output )
     [

diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index 689757f4646d92ef42b828afa16fb627dd4c0e08..2a9246c1b234ebad14962bfb7f2644b91604fa94 100644 (file)
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@@ -49,7 +49,7 @@ PRIVATE>
 : scan-effect ( -- effect )
     "(" expect ")" parse-effect ;
 
-: parse-call( ( accum word -- accum )
+: parse-call-paren ( accum word -- accum )
     [ ")" parse-effect ] dip 2array append! ;
 
 SYMBOL: in-definition

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 46ecff1f96c403e0af5fa32da3f9ddab7512c2af..4ffd70b3848f001f883cca01491816ad54ece4a3 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -285,9 +285,9 @@ IN: bootstrap.syntax
 
     "read-only" "syntax" lookup-word define-symbol
 
-    "call(" [ \ call-effect parse-call( ] define-core-syntax
+    "call(" [ \ call-effect parse-call-paren ] define-core-syntax
 
-    "execute(" [ \ execute-effect parse-call( ] define-core-syntax
+    "execute(" [ \ execute-effect parse-call-paren ] define-core-syntax
 
     "<<<<<<<" [ version-control-merge-conflict ] define-core-syntax
     "=======" [ version-control-merge-conflict ] define-core-syntax