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

[factor.git] / basis / stack-checker / branches / branches.factor

diff --git a/basis/stack-checker/branches/branches.factor b/basis/stack-checker/branches/branches.factor
index 77e983eefbd00c240936d1cf93a3ef0113514890..00f2773b38a8203ada69141675180ccb227c5d95 100644 (file)
--- a/basis/stack-checker/branches/branches.factor
+++ b/basis/stack-checker/branches/branches.factor
@@ -47,7 +47,7 @@ SYMBOLS: +bottom+ +top+ ;
 SYMBOLS: combinator quotations ;
 
 : simple-unbalanced-branches-error ( word quots branches -- * )
-    [ length [ (( ..a -- ..b )) ] replicate ]
+    [ length [ ( ..a -- ..b ) ] replicate ]
     [ [ length [ "x" <array> ] bi@ <effect> ] { } assoc>map ] bi
     unbalanced-branches-error ;
 
@@ -128,8 +128,8 @@ M: declared-effect curried/composed? known>> curried/composed? ;
 
 : declare-if-effects ( -- )
     H{ } clone V{ } clone
-    [ [ \ if (( ..a -- ..b )) ] 2dip 0 declare-effect-d ]
-    [ [ \ if (( ..a -- ..b )) ] 2dip 1 declare-effect-d ] 2bi ;
+    [ [ \ if ( ..a -- ..b ) ] 2dip 0 declare-effect-d ]
+    [ [ \ if ( ..a -- ..b ) ] 2dip 1 declare-effect-d ] 2bi ;
 
 : infer-if ( -- )
     \ if combinator set