try again to fix tests
svn: r18223
This commit is contained in:
parent
e38e8d88e0
commit
457a2da675
|
@ -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)])
|
||||
|
|
Loading…
Reference in New Issue
Block a user