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

Reduces the memory used by the randomized tests

Browse Source
This commit is contained in:
Casey Klein 2011-02-04 06:58:05 -06:00
parent 5d1b78384d
commit fe0525b7bb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/redex/examples/cont-mark-transform/randomized-tests.rkt
View File

@ -106,7 +106,10 @@
(parameterize ([max-normalization-steps 1000]) (parameterize ([max-normalization-steps 1000])
(SL-eval (term (∅ / ,expr)))))) (SL-eval (term (∅ / ,expr))))))
(define TL-result (define TL-result
(TL-eval (term (∅ / (translate ,expr))))) (dynamic-wind
(λ () (set-cache-size! 100))
(λ () (TL-eval (term (∅ / (translate ,expr)))))
(λ () (set-cache-size! 350))))
(or (equal? SL-result TL-result) (or (equal? SL-result TL-result)
(compares-incomparable-keys? expr)))) (compares-incomparable-keys? expr))))