Eliminate duplicate syntax for stack effects "(" no longer drops and is identical...

[factor.git] / basis / peg / ebnf / ebnf.factor

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 2c0e97f1d122ed1e1860edb302fee6b77983e89d..ea4222f7aad309e939397fe4de7a90bd8d1af2b2 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -492,8 +492,8 @@ ERROR: bad-effect quot effect ;
 \r
 : check-action-effect ( quot -- quot )\r
   dup infer {\r
-    { [ dup (( a -- b )) effect<= ] [ drop ] }\r
-    { [ dup (( -- b )) effect<= ] [ drop [ drop ] prepose ] }\r
+    { [ dup ( a -- b ) effect<= ] [ drop ] }\r
+    { [ dup ( -- b ) effect<= ] [ drop [ drop ] prepose ] }\r
     [ bad-effect ]\r
   } cond ;\r
 \r
@@ -572,5 +572,5 @@ SYNTAX: [EBNF
 SYNTAX: EBNF: \r
   reset-tokenizer scan-new-word dup ";EBNF" parse-multiline-string  \r
   ebnf>quot swapd\r
-  (( input -- ast )) define-declared "ebnf-parser" set-word-prop \r
+  ( input -- ast ) define-declared "ebnf-parser" set-word-prop \r
   reset-tokenizer ;\r