Start sandboxes with racket/base instead of full racket.
This commit is contained in:
parent
091d6796a9
commit
6b967002c5
|
@ -84,7 +84,7 @@
|
||||||
|
|
||||||
(define (get-user-state username)
|
(define (get-user-state username)
|
||||||
(when (not (hash-has-key? *user-states* username))
|
(when (not (hash-has-key? *user-states* username))
|
||||||
(let* ((sb (make-evaluator 'racket))
|
(let* ((sb (make-evaluator 'racket/base))
|
||||||
(ns (call-in-sandbox-context sb current-namespace)))
|
(ns (call-in-sandbox-context sb current-namespace)))
|
||||||
(parameterize ((current-namespace ns))
|
(parameterize ((current-namespace ns))
|
||||||
(namespace-set-variable-value! 'help help)
|
(namespace-set-variable-value! 'help help)
|
||||||
|
|
Loading…
Reference in New Issue