From c77f08c015190a92230b0644cbfbfbe2131939cf Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 16 Dec 2008 20:29:17 +0000 Subject: [PATCH] Added `call-with-trusted-sandbox-configuration', and used in scribble and in tests. svn: r12871 original commit: f74dc2b8c78bd373fc9d20e419b9fb5cb7a6d570 --- collects/scribble/eval.ss | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss index 5c2b193c..bfac65d4 100644 --- a/collects/scribble/eval.ss +++ b/collects/scribble/eval.ss @@ -239,19 +239,16 @@ [else stx])) (define (make-base-eval) - (parameterize ([sandbox-security-guard (current-security-guard)] - [sandbox-output 'string] - [sandbox-error-output 'string] - [sandbox-eval-limits #f] - [sandbox-memory-limit #f] - [sandbox-make-inspector current-inspector] - [sandbox-make-code-inspector current-code-inspector]) - (make-evaluator '(begin (require scheme/base))))) + (call-with-trusted-sandbox-configuration + (lambda () + (parameterize ([sandbox-output 'string] + [sandbox-error-output 'string]) + (make-evaluator '(begin (require scheme/base))))))) (define (close-eval e) (kill-evaluator e) "") - + (define (do-plain-eval ev s catching-exns?) (call-with-values (lambda () ((scribble-eval-handler)