From 37613b0bde3482fc090f3490685a48afdf4d472f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 25 Dec 2009 20:03:32 +0000 Subject: [PATCH] fixed use of random for 64 bit machines svn: r17401 --- collects/tests/mzscheme/fixnum.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/fixnum.ss b/collects/tests/mzscheme/fixnum.ss index da93e75d33..3df724cc7e 100644 --- a/collects/tests/mzscheme/fixnum.ss +++ b/collects/tests/mzscheme/fixnum.ss @@ -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)