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

0.0 neg ought to be -0.0

db4
Joe Groff 2009-05-21 18:49:22 -05:00
parent e47a30b7dc
commit c5d440700d
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/math/math-tests.factor
View File

@ -26,6 +26,9 @@ IN: math.tests
[ f ] [ 0 <fp-nan> fp-nan? ] unit-test
[ t ] [ 0 <fp-nan> fp-infinity? ] unit-test
[ t ] [ 0.0 neg -0.0 fp-bitwise= ] unit-test
[ t ] [ -0.0 neg 0.0 fp-bitwise= ] unit-test
[ 0.0 ] [ -0.0 next-float ] unit-test
[ t ] [ 1.0 dup next-float < ] unit-test
[ t ] [ -1.0 dup next-float < ] unit-test

2
core/math/math.factor
View File

@ -60,7 +60,7 @@ PRIVATE>
: 1- ( x -- y ) 1 - ; inline
: 2/ ( x -- y ) -1 shift ; inline
: sq ( x -- y ) dup * ; inline
: neg ( x -- -x ) 0 swap - ; inline
: neg ( x -- -x ) -1 * ; inline
: recip ( x -- y ) 1 swap / ; inline
: sgn ( x -- n ) dup 0 < [ drop -1 ] [ 0 > 1 0 ? ] if ; inline
: ?1+ ( x -- y ) [ 1 + ] [ 0 ] if* ; inline