Using "same?" in more places.

[factor.git] / basis / compiler / cfg / alias-analysis / alias-analysis.factor

diff --git a/basis/compiler/cfg/alias-analysis/alias-analysis.factor b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
index 14821031f2c4cb45b7818ea7a9ec5d01255758fe..2cfeb51014ca23e077c61fc7b3402103662dd501 100644 (file)
--- a/basis/compiler/cfg/alias-analysis/alias-analysis.factor
+++ b/basis/compiler/cfg/alias-analysis/alias-analysis.factor
@@ -275,7 +275,7 @@ M: ##copy analyze-aliases
 : useless-compare? ( insn -- ? )
     {
         [ cc>> cc= eq? ]
-        [ [ src1>> ] [ src2>> ] bi [ resolve vreg>ac ] bi@ = not ]
+        [ [ src1>> ] [ src2>> ] bi [ resolve vreg>ac ] same? not ]
     } 1&& ; inline
 
 M: ##compare analyze-aliases