Using "same?" in more places.

[factor.git] / core / math / math.factor

diff --git a/core/math/math.factor b/core/math/math.factor
index 150f508cdbf20c138f4c87d8968d409d3b8127e5..1810cc0ee25a1aae6875439d95890ee81abf61bd 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -96,7 +96,7 @@ TUPLE: complex { real real read-only } { imaginary real read-only } ;
 
 UNION: number real complex ;
 
-: fp-bitwise= ( x y -- ? ) [ double>bits ] bi@ = ; inline
+: fp-bitwise= ( x y -- ? ) [ double>bits ] same? ; inline
 
 GENERIC: fp-special? ( x -- ? )
 GENERIC: fp-nan? ( x -- ? )