Using "same?" in more places.

[factor.git] / core / generic / parser / parser.factor

diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor
index fe8d9537939df673e346f0d558a32fcab5fc183b..dcb0f665dbdb79dd405dc201e529601c33a46c57 100644 (file)
--- a/core/generic/parser/parser.factor
+++ b/core/generic/parser/parser.factor
@@ -29,10 +29,10 @@ SYMBOL: current-method
     "method-generic" word-prop "declared-effect" word-prop ;
 
 : method-effect= ( method-effect generic-effect -- ? )
-    [ [ in>> length ] bi@ = ]
+    [ [ in>> length ] same? ]
     [
         over terminated?>>
-        [ 2drop t ] [ [ out>> length ] bi@ = ] if
+        [ 2drop t ] [ [ out>> length ] same? ] if
     ] 2bi and ;
 
 ERROR: bad-method-effect ;