From 2195efa08d2d5767fefed7b54451043fec3e4597 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 10 Mar 2018 21:16:16 -0500 Subject: [PATCH] Don't eval in fuzz tester. --- pkgs/racket-test/tests/racket/stress/fuzz.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-test/tests/racket/stress/fuzz.rkt b/pkgs/racket-test/tests/racket/stress/fuzz.rkt index aea6cff8dd..619c8968c1 100644 --- a/pkgs/racket-test/tests/racket/stress/fuzz.rkt +++ b/pkgs/racket-test/tests/racket/stress/fuzz.rkt @@ -7,7 +7,7 @@ (define val (bytes-ref bs byte)) (bytes-set! bs byte (bitwise-xor (expt 2 bit) val))) -(define (run-bytes bs) +(define (read-bytes bs) (sync (parameterize ([current-custodian (make-custodian)]) (thread @@ -15,8 +15,8 @@ (custodian-limit-memory (current-custodian) (* 512 (expt 2 20))) (with-handlers ([void void]) - (eval (parameterize ([read-accept-compiled #t]) - (with-input-from-bytes bs read))))))))) + (parameterize ([read-accept-compiled #t]) + (with-input-from-bytes bs read)))))))) (define (run-file fname seed0 #:write? [out-fname? #f]) (define seed (or seed0 (+ 1 (random (expt 2 30))))) @@ -33,7 +33,7 @@ (call-with-output-file (build-path (current-directory) out-fname?) (lambda (o) (write-bytes bs o)))) - (run-bytes bs)))) + (read-bytes bs)))) (define (go) (let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])