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

remove redundant nan? word

db4
Doug Coleman 2008-12-03 22:03:10 -06:00
parent b27941dd01
commit 9f19062892
2 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/floating-point/floating-point-tests.factor
View File

@ -13,5 +13,3 @@ IN: math.floating-point.tests
[ f ] [ 10. infinity? ] unit-test [ f ] [ 10. infinity? ] unit-test
[ f ] [ -10. infinity? ] unit-test [ f ] [ -10. infinity? ] unit-test
[ f ] [ 0. infinity? ] unit-test [ f ] [ 0. infinity? ] unit-test
[ t ] [ 0/0. nan? ] unit-test

7
extra/math/floating-point/floating-point.factor
View File

@ -38,13 +38,6 @@ IN: math.floating-point
11 [ bl ] times print 11 [ bl ] times print
] tri ; ] tri ;
: nan? ( double -- ? )
double>bits
{
[ (double-exponent-bits) 11 on-bits = ]
[ (double-mantissa-bits) 0 > ]
} 1&& ;
: infinity? ( double -- ? ) : infinity? ( double -- ? )
double>bits double>bits
{ {