Reduces the memory used by the randomized tests

2011-02-04 06:58:05 -06:00 · 2011-02-04 06:58:05 -06:00 · fe0525b7bb
commit fe0525b7bb
parent 5d1b78384d
1 changed files with 4 additions and 1 deletions
--- a/collects/redex/examples/cont-mark-transform/randomized-tests.rkt
+++ b/collects/redex/examples/cont-mark-transform/randomized-tests.rkt
@ -106,7 +106,10 @@
        (parameterize ([max-normalization-steps 1000])
          (SL-eval (term (∅ / ,expr))))))
    (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)
        (compares-incomparable-keys? expr))))