Lower memory limit; remove eval limits

2011-11-02 19:13:27 -04:00 · 2011-11-02 19:13:27 -04:00 · 091d6796a9
parent e0cb011ff4
commit 091d6796a9
1 changed files with 2 additions and 0 deletions
--- a/repl-server.rkt
+++ b/repl-server.rkt
@ -104,6 +104,8 @@
 		 (sandbox-input in)
 		 (sandbox-output out)
 		 (sandbox-error-output out)
+		 (sandbox-memory-limit 2) ;; megabytes
+		 (sandbox-eval-limits #f)
 		 (sandbox-namespace-specs (list (lambda () master-namespace))))
    (printf "Hello, ~a.\n" username)
    (printf "Type (help) for help.\n")