core: rename parse-call( to parse-call-paren
parent
270155bae4
commit
3d4bc1de1a
|
@ -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 )
|
||||
[
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue