commit c77f08c015190a92230b0644cbfbfbe2131939cf parent 59a4845d0a50f828470b7b81167d9f6b4dda627f Author: Eli Barzilay <eli@racket-lang.org> Date: Tue, 16 Dec 2008 20:29:17 +0000 Added `call-with-trusted-sandbox-configuration', and used in scribble and in tests. svn: r12871 original commit: f74dc2b8c78bd373fc9d20e419b9fb5cb7a6d570 Diffstat:
| M | collects/scribble/eval.ss | | | 15 | ++++++--------- |
1 file changed, 6 insertions(+), 9 deletions(-)
diff --git 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)