effects.parser: Remove left-over old code that did (( -- )) stack effects.

diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index 2a9246c1b234ebad14962bfb7f2644b91604fa94..45df4d402e7415ec86b31aab33f3e0026033bbbf 100644 (file)
--- 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 )