suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix use of 'random' in fixnum test suite

Browse Source 
svn: r17397
This commit is contained in:
Matthew Flatt 2009-12-25 13:14:57 +00:00
parent c3de991a60
commit b18ba4a4e5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/fixnum.ss
View File

@ -120,7 +120,7 @@
(for ([ignore (in-range 0 800)]) (for ([ignore (in-range 0 800)])
(let ([i (random-fixnum)] (let ([i (random-fixnum)]
[j (random-fixnum)] [j (random-fixnum)]
[k (random (r6:fixnum-width))] [k (inexact->exact (floor (* (random) (+ 1 (r6:fixnum-width)))))]
[more-fixnums (build-list (random 20) (λ (i) (random-fixnum)))]) [more-fixnums (build-list (random 20) (λ (i) (random-fixnum)))])
(for ([line (in-list unary-table)]) (for ([line (in-list unary-table)])
(test #t same-results (list-ref line 0) (list-ref line 1) (list i))) (test #t same-results (list-ref line 0) (list-ref line 1) (list i)))