From 0786da10cb386ee71637baca7a7a804a0cbf8239 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 15 Dec 2008 20:43:28 +0000 Subject: [PATCH] svn: r12860 --- 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 64690bb356..92b5a427f2 100644 --- a/collects/tests/mzscheme/sandbox.ss +++ b/collects/tests/mzscheme/sandbox.ss @@ -430,8 +430,8 @@ ;; tight here, this test usually fails if the sandbox library is not ;; compiled) (let ([t (lambda () - (t --eval-- (display (make-bytes 400000 65)) (collect-garbage) - --top-- (bytes-length (get-output ev)) => 400000))]) + (t --eval-- (display (make-bytes 400000 65)) (collect-garbage) + --top-- (bytes-length (get-output ev)) => 400000))]) ;; can go arbitrarily high here (for ([i (in-range 20)]) (t)))