From 01d9faa5fa57bdae952d6aa42109eb48b0505bb3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 27 Jan 2006 18:30:57 +0000 Subject: [PATCH] inf -> 1.0/0.0 --- contrib/random-tester/random-tester.factor | 2 +- contrib/random-tester/random.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor index d18c861f08..456636ac36 100644 --- 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 7c7ec4e0ad..4abd1a0d46 100644 --- 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