inf -> 1.0/0.0

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index d18c861f08fc1d4ccc58fe1698d3bc946b95c186..456636ac36d201d43d6b04ca5543fa374dd53dfc 100644 (file)
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -244,7 +244,7 @@ SYMBOL: last
 
 : test-2integer>x-throws ( -- )
     [
-        random-integer , random-integer , math-throw-2 nth-rand ,
+        random-integer dup . , random-integer dup . , math-throw-2 nth-rand dup . ,
     ] [ ] make interp-compile-check-catch ;
 
 ! 1-arg tests

diff --git a/contrib/random-tester/random.factor b/contrib/random-tester/random.factor
index 7c7ec4e0ad89675712edd8e1294a51fb5c07ddb5..4abd1a0d46e39c9685c45a2b9cae6bb5f285dd8c 100644 (file)
--- a/contrib/random-tester/random.factor
+++ b/contrib/random-tester/random.factor
@@ -34,7 +34,7 @@ SYMBOL: special-integers
 { } make \ special-integers set
 : special-integers ( -- seq ) \ special-integers get ;
 SYMBOL: special-floats
-[ { 0.0 } % e , pi , inf , -inf , 0/0. , epsilon , epsilon neg , ]
+[ { 0.0 } % e , pi , 1./0. , -1./0. , 0./0. , epsilon , epsilon neg , ]
 { } make \ special-floats set
 : special-floats ( -- seq ) \ special-floats get ;
 SYMBOL: special-complexes