remove double>bits and float>bits from tests that take integers/ratios

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index ce0d1ae4583ed35e9b5cf93c4bc314a6b31c1ca0..d2d7c61238f616c8962d42087d1c92e10538ce5f 100644 (file)
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -30,7 +30,7 @@ IN: random-tester
     {
         1+ 1- >bignum >digit >fixnum abs absq arg 
         bitnot bits>double bits>float ceiling cis conjugate cos cosec cosech
-        cosh cot coth denominator double>bits exp float>bits floor imaginary
+        cosh cot coth denominator exp floor imaginary
         log neg next-power-of-2 numerator real sec
         sech sgn sin sinh sq sqrt tan tanh truncate 
     } ;
@@ -39,7 +39,7 @@ IN: random-tester
     {
         1+ 1- >bignum >digit >fixnum abs absq arg ceiling
         cis conjugate cos cosec cosech
-        cosh cot coth double>bits exp float>bits floor imaginary
+        cosh cot coth exp floor imaginary
         log neg next-power-of-2 real sec
         sech sgn sin sinh sq sqrt tan tanh truncate 
     } ;
@@ -75,7 +75,7 @@ IN: random-tester
 : 1-integer>integer
     {
         1+ 1- >bignum >digit >fixnum abs absq bitnot ceiling conjugate 
-        denominator double>bits float>bits floor imaginary
+        denominator floor imaginary
         neg next-power-of-2 numerator real sgn sq truncate 
     } ;