steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

inf -> 1.0/0.0

cvs
Doug Coleman 2006-01-27 18:30:57 +00:00
parent 5046604b01
commit 01d9faa5fa
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/random-tester/random-tester.factor
View File

@ -244,7 +244,7 @@ SYMBOL: last
: test-2integer>x-throws ( -- ) : 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 ; ] [ ] make interp-compile-check-catch ;
! 1-arg tests ! 1-arg tests

2
contrib/random-tester/random.factor
View File

@ -34,7 +34,7 @@ SYMBOL: special-integers
{ } make \ special-integers set { } make \ special-integers set
: special-integers ( -- seq ) \ special-integers get ; : special-integers ( -- seq ) \ special-integers get ;
SYMBOL: special-floats 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 { } make \ special-floats set
: special-floats ( -- seq ) \ special-floats get ; : special-floats ( -- seq ) \ special-floats get ;
SYMBOL: special-complexes SYMBOL: special-complexes