From 58efceb408ae50771e3be321ea5ddc9b1b48457c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 25 Mar 2016 01:50:00 -0700
Subject: [PATCH] effects.parser: Remove left-over old code that did (( -- ))
 stack effects.

---
 core/effects/parser/parser.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index 2a9246c1b2..45df4d402e 100644
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@@ -15,8 +15,8 @@ SYMBOL: effect-var
 
 <PRIVATE
 : end-token? ( end token -- token ? ) [ nip ] [ = ] 2bi ; inline
-: effect-opener? ( token -- token ? ) dup { f "(" "((" "--" } member? ; inline
-: effect-closer? ( token -- token ? ) dup { ")" "))" } member? ; inline
+: effect-opener? ( token -- token ? ) dup { f "(" "--" } member? ; inline
+: effect-closer? ( token -- token ? ) dup ")" sequence= ; inline
 : row-variable? ( token -- token' ? ) ".." ?head ; inline
 
 : parse-effect-var ( first? var name -- var )