more adjustments

svn: r12863
This commit is contained in:
Eli Barzilay 2008-12-15 21:37:55 +00:00
parent f8dff60a01
commit 43124c2ec5

View File

@ -148,11 +148,11 @@
=err> "out of time"
(when (custodian-memory-accounting-available?)
(t --top--
(set! ev (parameterize ([sandbox-eval-limits '(0.25 2)])
(set! ev (parameterize ([sandbox-eval-limits '(2 2)])
(make-evaluator 'scheme/base
'(define a (for/list ([i (in-range 10)])
(collect-garbage)
(make-string 200000))))))
(make-bytes 500000))))))
=err> "out of memory"))
;; i/o