suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

disable sandbox break propagation in scribble/eval

Browse Source 
svn: r14221

original commit: 547101ac5bb81b9af1ccb39377fb6895101a2f2f
This commit is contained in:
Matthew Flatt 2009-03-22 16:42:35 +00:00
parent 9f2af4697e
commit dff49f902e
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/eval.ss
View File

@ -238,7 +238,8 @@
(call-with-trusted-sandbox-configuration (call-with-trusted-sandbox-configuration
(lambda () (lambda ()
(parameterize ([sandbox-output 'string] (parameterize ([sandbox-output 'string]
[sandbox-error-output 'string]) [sandbox-error-output 'string]
[sandbox-propagate-breaks #f])
(make-evaluator '(begin (require scheme/base))))))) (make-evaluator '(begin (require scheme/base)))))))
(define (close-eval e) (define (close-eval e)
@ -246,6 +247,7 @@
"") "")
(define (do-plain-eval ev s catching-exns?) (define (do-plain-eval ev s catching-exns?)
(parameterize ([sandbox-propagate-breaks #f])
(call-with-values (lambda () (call-with-values (lambda ()
((scribble-eval-handler) ((scribble-eval-handler)
ev ev
@ -262,7 +264,7 @@
[(string? s) [(string? s)
`(begin ,s)] `(begin ,s)]
[else s])))) [else s]))))
list)) list)))
(define-syntax-rule (quote-expr e) 'e) (define-syntax-rule (quote-expr e) 'e)