remove redundant nan? word

2008-12-03 22:03:10 -06:00 · 2008-12-03 22:03:10 -06:00 · 9f19062892
parent b27941dd01
commit 9f19062892
2 changed files with 0 additions and 9 deletions
--- a/extra/math/floating-point/floating-point-tests.factor
+++ b/extra/math/floating-point/floating-point-tests.factor
@ -13,5 +13,3 @@ IN: math.floating-point.tests
 [ f ] [ 10. infinity? ] unit-test
 [ f ] [ -10. infinity? ] unit-test
 [ f ] [ 0. infinity? ] unit-test
-
-[ t ] [ 0/0. nan? ] unit-test
--- a/extra/math/floating-point/floating-point.factor
+++ b/extra/math/floating-point/floating-point.factor
@ -38,13 +38,6 @@ IN: math.floating-point
        11 [ bl ] times print
    ] tri ;

-: nan? ( double -- ? )
-    double>bits
-    {
-        [ (double-exponent-bits) 11 on-bits = ]
-        [ (double-mantissa-bits) 0 > ]
-    } 1&& ;
-
 : infinity? ( double -- ? )
    double>bits
    {