From 4da3453cf5a755882aa59488570e308b18bfecd5 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 19 Mar 2013 15:01:54 -0400 Subject: [PATCH] Sometimes generate random integers. original commit: ca2e6bd769374b2e636fdf0a59afda484fb7975a --- collects/tests/typed-racket/random-real.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/typed-racket/random-real.rkt b/collects/tests/typed-racket/random-real.rkt index 996e8b3a..0f002831 100644 --- a/collects/tests/typed-racket/random-real.rkt +++ b/collects/tests/typed-racket/random-real.rkt @@ -110,7 +110,7 @@ (define (random-integer->random-real E) (define r (random)) ;; probability 0.25 each - (cond [(r . < . 0.25) r] + (cond [(r . < . 0.25) E] [(r . < . 0.50) (random-integer->random-exact-rational E)] [(r . < . 0.75) (random-integer->random-flonum E)] [else (random-integer->random-single-flonum E)]))