remove redundant nan? word

diff --git a/extra/math/floating-point/floating-point-tests.factor b/extra/math/floating-point/floating-point-tests.factor
index 129956331bce51358bf44252ec0b80d2b2572495..9e5b5c67aa91bbb9c9b0ea9c7872f4588bfc4838 100644 (file)
--- 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

diff --git a/extra/math/floating-point/floating-point.factor b/extra/math/floating-point/floating-point.factor
index 02fcd01e11ee4156658a5a923329500df703281d..522f149bc1c7dbfd92fd814a6ed3091cc3f7fc83 100644 (file)
--- 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
     {