From 6b967002c52d943d3eda56a4db3de5ed9d8aeab7 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 2 Nov 2011 19:25:39 -0400 Subject: [PATCH] Start sandboxes with racket/base instead of full racket. --- repl-server.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repl-server.rkt b/repl-server.rkt index 5e44604..3455512 100644 --- a/repl-server.rkt +++ b/repl-server.rkt @@ -84,7 +84,7 @@ (define (get-user-state 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))) (parameterize ((current-namespace ns)) (namespace-set-variable-value! 'help help)