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

bugs

cvs
Doug Coleman 2006-01-28 19:08:58 +00:00
parent 1a52c496a8
commit 8251d788f1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -190,7 +190,8 @@ SYMBOL: last-quot
= [ "problem in math" throw ] unless ; = [ "problem in math" throw ] unless ;
: interp-compile-check-1 ( x quot -- ) : interp-compile-check-1 ( x quot -- )
dup . flush .s flush
! dup . flush
[ last-quot set ] keep [ last-quot set ] keep
[ call ] 2keep compile-1 [ call ] 2keep compile-1
2dup swap unparse write " " write unparse print 2dup swap unparse write " " write unparse print
@ -392,6 +393,10 @@ SYMBOL: last-quot
random-number , \ dup , \ float? , float>x nth-rand unit , \ when , random-number , \ dup , \ float? , float>x nth-rand unit , \ when ,
] [ ] make interp-compile-check ; ] [ ] make interp-compile-check ;
: test-float?-when-1
random-float [
\ dup , \ float? , float>x nth-rand unit , \ when ,
] [ ] make interp-compile-check-1 ;
: stack-identity-0 : stack-identity-0