random errors

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index ed8bb64dc7aaccd530afa600f15cc3df9b3e1dbe..754fb548f1498439deaab1ebd98ae58068c0bb97 100644 (file)
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -377,17 +377,6 @@ SYMBOL: last-quot
         random-complex , random-complex , complex-logic-2 nth-rand , 
     ] [ ] make interp-compile-check ;
 
-: test-integer
-    {
-        
-        test-2integer>x test-integer>x test-2integer>x-1 } nth-rand execute ;
-! quotation tests
-! : test-integer random-integer-quotation interp-compile-check ;
-: test-ratio random-ratio-quotation interp-compile-check ;
-: test-float random-float-quotation interp-compile-check ;
-: test-complex random-complex-quotation interp-compile-check ;
-
-
 
 : string-to-math-test ( -- )
     [
@@ -398,6 +387,11 @@ SYMBOL: last-quot
     ] [ ] make interp-compile-check ;
 
 
+: test-float?-when
+    [
+        random-number , \ dup , \ float? , float>x nth-rand unit , \ when ,
+    ] [ ] make interp-compile-check ;
+
 
 
 : stack-identity-0