suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

normalized the output so drdr won't say that this is changing

Browse Source 
svn: r18326
This commit is contained in:
Robby Findler 2010-02-24 19:46:24 +00:00
parent 872ace8cd5
commit df049ea35e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/future/random-future.ss
View File

@ -84,10 +84,6 @@ Errors/exceptions and other kinds of control?
|# |#
(let ([v (modulo (current-milliseconds) 1000)])
(printf "using seed ~a\n" v)
(random-seed v))
(define-language fut (define-language fut
;; single value, non-error expressions ;; single value, non-error expressions
(exp (any->any/prim exp) (exp (any->any/prim exp)
@ -186,11 +182,15 @@ Errors/exceptions and other kinds of control?
(gen-exp))])) (gen-exp))]))
(define-namespace-anchor ns-here) (define-namespace-anchor ns-here)
(let ([seed (+ 1 (random (expt 2 30)))])
(printf "DrDr Ignore! random-seed ~s\n" seed)
(random-seed seed))
(let loop ([n 32]) (let loop ([n 32])
(unless (zero? n) (unless (zero? n)
(printf ".") (flush-output) (printf ".") (flush-output)
(let ([p (gen-prog)]) (let ([p (gen-prog)])
(pretty-print p) ;(pretty-print p)
(eval p (namespace-anchor->namespace ns-here))) (eval p (namespace-anchor->namespace ns-here)))
(loop (- n 1)))) (loop (- n 1))))
(newline)