26 lines
668 B
Scheme
26 lines
668 B
Scheme
#lang scheme/base
|
|
(require scheme/sandbox)
|
|
(provide (all-from-out scheme/sandbox))
|
|
|
|
;; no input/output
|
|
(sandbox-input #f)
|
|
(sandbox-output #f)
|
|
(sandbox-error-output #f)
|
|
|
|
;; no limits -- the handin server uses per-session limits
|
|
(sandbox-memory-limit #f)
|
|
(sandbox-eval-limits #f)
|
|
|
|
;; share these with evaluators
|
|
(sandbox-namespace-specs
|
|
(let ([specs (sandbox-namespace-specs)])
|
|
`(,(car specs)
|
|
,@(cdr specs)
|
|
lang/posn
|
|
,@(if gui? '(mrlib/cache-image-snip) '()))))
|
|
|
|
;; local overrides
|
|
(sandbox-override-collection-paths
|
|
(cons (build-path (collection-path "handin-server") "overridden-collects")
|
|
(sandbox-override-collection-paths)))
|