Using "same?" in more places.

[factor.git] / basis / compiler / cfg / linear-scan / resolve / resolve.factor

diff --git a/basis/compiler/cfg/linear-scan/resolve/resolve.factor b/basis/compiler/cfg/linear-scan/resolve/resolve.factor
index 7361fc8f10dc24026dbdcc59fb25bfa62f001cfe..68c43dfc87597af063ba6ddc67a63eb3f9d89aaf 100644 (file)
--- a/basis/compiler/cfg/linear-scan/resolve/resolve.factor
+++ b/basis/compiler/cfg/linear-scan/resolve/resolve.factor
@@ -27,7 +27,7 @@ TUPLE: location
 
 M: location equal?
     over location? [
-        { [ [ reg>> ] bi@ = ] [ [ reg-class>> ] bi@ = ] } 2&&
+        { [ [ reg>> ] same? ] [ [ reg-class>> ] same? ] } 2&&
     ] [ 2drop f ] if ;
 
 M: location hashcode*