From 43124c2ec505b3a0fad12d311826512e9c860370 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 15 Dec 2008 21:37:55 +0000 Subject: [PATCH] more adjustments svn: r12863 --- collects/tests/mzscheme/sandbox.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/sandbox.ss b/collects/tests/mzscheme/sandbox.ss index 8c7ff62a71..58f1cf7eee 100644 --- a/collects/tests/mzscheme/sandbox.ss +++ b/collects/tests/mzscheme/sandbox.ss @@ -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