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

db4
Doug Coleman 2015-07-27 09:53:10 -07:00
parent 270155bae4
commit 3d4bc1de1a
3 changed files with 4 additions and 4 deletions

View File

@ -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 )
[

View File

@ -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

View File

@ -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