From 23e8624e4143eb309de76426b3ef65d98f4b271d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 19 Dec 2008 20:58:56 +0000 Subject: [PATCH] fix the test-suite sandbox svn: r12907 --- collects/tests/mzscheme/testing.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/tests/mzscheme/testing.ss b/collects/tests/mzscheme/testing.ss index cb60a31e5a..1f29258597 100644 --- a/collects/tests/mzscheme/testing.ss +++ b/collects/tests/mzscheme/testing.ss @@ -79,11 +79,12 @@ transcript. (define (load-in-sandbox file) (define-syntax-rule (S id) (dynamic-require 'scheme/sandbox 'id)) (let ([e ((S call-with-trusted-sandbox-configuration) - (parameterize ([(S sandbox-input) current-input-port] - [(S sandbox-output) current-output-port] - [(S sandbox-error-output) current-error-port] - [(S sandbox-memory-limit) 100]) ; 100mb per box - ((S make-evaluator) '(begin) #:requires (list 'scheme))))]) + (lambda () + (parameterize ([(S sandbox-input) current-input-port] + [(S sandbox-output) current-output-port] + [(S sandbox-error-output) current-error-port] + [(S sandbox-memory-limit) 100]) ; 100mb per box + ((S make-evaluator) '(begin) #:requires (list 'scheme)))))]) (e `(load-relative "testing.ss")) (e `(define real-error-port (quote ,real-error-port))) (e `(define Section-prefix ,Section-prefix))