From b18ba4a4e57f5544d2b641aa170c69a3f578f3a2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 25 Dec 2009 13:14:57 +0000 Subject: [PATCH] fix use of 'random' in fixnum test suite svn: r17397 --- 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 aa6f4b1de5..da93e75d33 100644 --- a/collects/tests/mzscheme/fixnum.ss +++ b/collects/tests/mzscheme/fixnum.ss @@ -120,7 +120,7 @@ (for ([ignore (in-range 0 800)]) (let ([i (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)))]) (for ([line (in-list unary-table)]) (test #t same-results (list-ref line 0) (list-ref line 1) (list i)))