From 3d4bc1de1aaca8c3b7843b5d3ec4068107102916 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 27 Jul 2015 09:53:10 -0700 Subject: [PATCH] core: rename parse-call( to parse-call-paren --- basis/eval/eval.factor | 2 +- core/effects/parser/parser.factor | 2 +- core/syntax/syntax.factor | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/eval/eval.factor b/basis/eval/eval.factor index eb551b1f2a..66b783958f 100644 --- 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 689757f464..2a9246c1b2 100644 --- 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 46ecff1f96..4ffd70b384 100644 --- 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