Using "same?" in more places.

[factor.git] / core / effects / effects.factor

diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index 650e6b79c5502d3da1ffa647202a45ce8520c01c..1ac78fcae876757f2be3d9880267beb9700ae6e1 100644 (file)
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -39,14 +39,14 @@ TUPLE: effect
         { [ 2dup [ bivariable-effect? ] either? ] [ f ] }
         { [ 2dup [ variable-effect? ] [ variable-effect? not ] bi* and ] [ f ] }
         { [ 2dup [ in>> length ] bi@ > ] [ f ] }
-        { [ 2dup [ effect-height ] bi@ = not ] [ f ] }
+        { [ 2dup [ effect-height ] same? not ] [ f ] }
         [ t ]
     } cond 2nip ; inline
 
 : effect= ( effect1 effect2 -- ? )
-    [ [ in>> length ] bi@ = ]
-    [ [ out>> length ] bi@ = ]
-    [ [ terminated?>> ] bi@ = ]
+    [ [ in>> length ] same? ]
+    [ [ out>> length ] same? ]
+    [ [ terminated?>> ] same? ]
     2tri and and ;
 
 GENERIC: effect>string ( obj -- str )