Using "same?" in more places.

[factor.git] / basis / compiler / tree / propagation / info / info.factor

diff --git a/basis/compiler/tree/propagation/info/info.factor b/basis/compiler/tree/propagation/info/info.factor
index 9056a7fb778cac3677b1d61e0a552c2c113a5b45..1186e31eb2ba2f192eea84428badab8b98c19ef9 100644 (file)
--- a/basis/compiler/tree/propagation/info/info.factor
+++ b/basis/compiler/tree/propagation/info/info.factor
@@ -19,7 +19,7 @@ M: object eql? eq? ;
 M: fixnum eql? eq? ;
 M: bignum eql? over bignum? [ = ] [ 2drop f ] if ;
 M: ratio eql? over ratio? [ = ] [ 2drop f ] if ;
-M: float eql? over float? [ [ double>bits ] bi@ = ] [ 2drop f ] if ;
+M: float eql? over float? [ [ double>bits ] same? ] [ 2drop f ] if ;
 M: complex eql? over complex? [ = ] [ 2drop f ] if ;
 
 ! Value info represents a set of objects. Don't mutate value infos
@@ -200,7 +200,7 @@ DEFER: (value-info-intersect)
         { [ dup not ] [ drop ] }
         { [ over not ] [ nip ] }
         [
-            2dup [ length ] bi@ =
+            2dup [ length ] same?
             [ [ intersect-slot ] 2map ] [ 2drop f ] if
         ]
     } cond ;
@@ -240,7 +240,7 @@ DEFER: (value-info-union)
 
 : union-slots ( info1 info2 -- slots )
     [ slots>> ] bi@
-    2dup [ length ] bi@ =
+    2dup [ length ] same?
     [ [ union-slot ] 2map ] [ 2drop f ] if ;
 
 : (value-info-union) ( info1 info2 -- info )