try again to fix tests

svn: r18223
This commit is contained in:
Matthew Flatt 2010-02-20 13:39:51 +00:00
parent e38e8d88e0
commit 457a2da675

View File

@ -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)])