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

fixed use of random for 64 bit machines

Browse Source 
svn: r17401
This commit is contained in:
Robby Findler 2009-12-25 20:03:32 +00:00
parent 8fdf526cc7
commit 37613b0bde
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

@ -136,7 +136,7 @@
(test #t same-results (list-ref line 0) (list-ref line 1) more-fixnums)))))
(define (random-fixnum)
(+ (r6:least-fixnum) (random (- (r6:greatest-fixnum) (r6:least-fixnum)))))
(inexact->exact (floor (+ (r6:least-fixnum) (* (random) (+ (- (r6:greatest-fixnum) (r6:least-fixnum)) 1))))))
;; check the arities
(for-each (λ (x) (apply check-arity x)) table)