24 lines
635 B
Scheme
24 lines
635 B
Scheme
(module sandbox mzscheme
|
|
(require (lib "sandbox.ss"))
|
|
(provide (all-from (lib "sandbox.ss")))
|
|
|
|
;; no input/output
|
|
(sandbox-input #f)
|
|
(sandbox-output #f)
|
|
(sandbox-error-output #f)
|
|
|
|
;; share these with evaluators
|
|
(sandbox-namespace-specs
|
|
(let ([specs (sandbox-namespace-specs)])
|
|
`(,(car specs)
|
|
,@(cdr specs)
|
|
(lib "posn.ss" "lang")
|
|
,@(if mred? '((lib "cache-image-snip.ss" "mrlib")) '()))))
|
|
|
|
;; local overrides
|
|
(sandbox-override-collection-paths
|
|
(cons (build-path (collection-path "handin-server") "overridden-collects")
|
|
(sandbox-override-collection-paths)))
|
|
|
|
)
|