suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

syntax/parse docs: use trusted sandbox config

Browse Source 
closes PR 12546
This commit is contained in:
Ryan Culpepper 2012-02-07 13:39:10 -07:00
parent 679b2d3872
commit ed1ba3a442
1 changed files with 21 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
collects/syntax/scribblings/parse/parse-common.rkt
View File

@ -19,25 +19,27 @@
(exn:fail:syntax-exprs exn)) (exn:fail:syntax-exprs exn))
exn))) exn)))
(define the-eval (define the-eval
(parameterize ((sandbox-output 'string) (call-with-trusted-sandbox-configuration
(sandbox-error-output 'string) (lambda ()
(sandbox-make-code-inspector current-code-inspector) (parameterize ([sandbox-output 'string]
(sandbox-eval-handlers [sandbox-error-output 'string]
(list #f [sandbox-propagate-breaks #f]
(lambda (thunk) [sandbox-eval-handlers
(with-handlers ([exn:fail:syntax? (list #f
(lambda (e) (raise (fixup e)))]) (lambda (thunk)
(thunk)))))) (with-handlers ([exn:fail:syntax?
(make-evaluator 'racket/base (lambda (e) (raise (fixup e)))])
#:requires (let ([mods '(syntax/parse (thunk))))])
syntax/parse/debug (make-evaluator 'racket/base
syntax/parse/experimental/splicing #:requires (let ([mods '(syntax/parse
syntax/parse/experimental/contract syntax/parse/debug
syntax/parse/experimental/reflect syntax/parse/experimental/splicing
syntax/parse/experimental/specialize syntax/parse/experimental/contract
syntax/parse/experimental/eh)]) syntax/parse/experimental/reflect
`((for-syntax racket/base ,@mods) syntax/parse/experimental/specialize
,@mods))))) syntax/parse/experimental/eh)])
`((for-syntax racket/base ,@mods)
,@mods)))))))
(the-eval '(error-print-source-location #f)) (the-eval '(error-print-source-location #f))
(define-syntax-rule (myexamples e ...) (define-syntax-rule (myexamples e ...)