Have DrDr keep ignoring the random seeds.

This commit is contained in:
Sam Tobin-Hochstadt 2011-07-03 18:08:06 -04:00
parent 2840e2367b
commit e972c0c392

View File

@ -13,7 +13,7 @@
(define (run fname seed0)
(define seed (or seed0 (+ 1 (random (expt 2 30)))))
(printf "seed: ~s\nname: ~a\n" seed fname)
(printf "DrDr Ignore! seed: ~s\nname: ~a\n" seed fname)
(flush-output)
(random-seed seed)
(define bs (file->bytes fname))