From 457a2da675f3142eafbb9b94f4e6ec1c31e3c123 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 20 Feb 2010 13:39:51 +0000 Subject: [PATCH] try again to fix tests svn: r18223 --- collects/tests/future/random-future.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/future/random-future.ss b/collects/tests/future/random-future.ss index ceb691a76f..36ca737393 100644 --- a/collects/tests/future/random-future.ss +++ b/collects/tests/future/random-future.ss @@ -84,7 +84,9 @@ Errors/exceptions and other kinds of control? |# -(random-seed 2) +(let ([v (modulo (current-milliseconds) 1000)]) + (printf "using seed ~a\n" v) + (random-seed v)) (define-language fut ;; single value, non-error expressions @@ -185,7 +187,7 @@ Errors/exceptions and other kinds of control? (define-namespace-anchor ns-here) -(let loop ([n 100]) +(let loop ([n 32]) (unless (zero? n) (printf ".") (flush-output) (let ([p (gen-prog)])