steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix negative zero smashing with bootstrap

db4
Slava Pestov 2009-05-09 18:17:30 -05:00
parent 84c7f10ab7
commit 4ee4357e75
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/bootstrap/image/image.factor
View File

@ -52,6 +52,9 @@ GENERIC: (eql?) ( obj1 obj2 -- ? )
M: integer (eql?) = ; M: integer (eql?) = ;
M: float (eql?)
over float? [ fp-bitwise= ] [ 2drop f ] if ;
M: sequence (eql?) M: sequence (eql?)
over sequence? [ over sequence? [
2dup [ length ] bi@ = 2dup [ length ] bi@ =

2
core/math/math.factor
View File

@ -81,6 +81,8 @@ TUPLE: complex { real real read-only } { imaginary real read-only } ;
UNION: number real complex ; UNION: number real complex ;
: fp-bitwise= ( x y -- ? ) [ double>bits ] bi@ = ; inline
GENERIC: fp-special? ( x -- ? ) GENERIC: fp-special? ( x -- ? )
GENERIC: fp-nan? ( x -- ? ) GENERIC: fp-nan? ( x -- ? )
GENERIC: fp-qnan? ( x -- ? ) GENERIC: fp-qnan? ( x -- ? )