Fix negative zero smashing with bootstrap

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 55e6a31491d362a44dd4afdb79ad03cf1ac45d18..92d75604e08c0845afab6ccac8813f0a71124547 100644 (file)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -52,6 +52,9 @@ GENERIC: (eql?) ( obj1 obj2 -- ? )
 
 M: integer (eql?) = ;
 
+M: float (eql?)
+    over float? [ fp-bitwise= ] [ 2drop f ] if ;
+
 M: sequence (eql?)
     over sequence? [
         2dup [ length ] bi@ =

diff --git a/core/math/math.factor b/core/math/math.factor
index 6a087ec9091f00f72a64a2ff2475f0fdd5d73f9c..da9bc4d1b5346fa61f266b12d5041aabc0e3318e 100755 (executable)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -81,6 +81,8 @@ TUPLE: complex { real real read-only } { imaginary real read-only } ;
 
 UNION: number real complex ;
 
+: fp-bitwise= ( x y -- ? ) [ double>bits ] bi@ = ; inline
+
 GENERIC: fp-special? ( x -- ? )
 GENERIC: fp-nan? ( x -- ? )
 GENERIC: fp-qnan? ( x -- ? )