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

random errors

cvs
Doug Coleman 2006-01-28 19:03:36 +00:00
parent 373ee35a0c
commit 1a52c496a8
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -377,17 +377,6 @@ SYMBOL: last-quot
random-complex , random-complex , complex-logic-2 nth-rand , random-complex , random-complex , complex-logic-2 nth-rand ,
] [ ] make interp-compile-check ; ] [ ] 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 ( -- ) : string-to-math-test ( -- )
[ [
@ -398,6 +387,11 @@ SYMBOL: last-quot
] [ ] make interp-compile-check ; ] [ ] make interp-compile-check ;
: test-float?-when
[
random-number , \ dup , \ float? , float>x nth-rand unit , \ when ,
] [ ] make interp-compile-check ;
: stack-identity-0 : stack-identity-0