use a new code inspector for safer eval

svn: r2319
2006-02-26 02:49:24 +00:00 · 2006-02-26 02:49:24 +00:00 · c34a75443e
commit c34a75443e
parent a813ae8434
1 changed files with 2 additions and 1 deletions
--- a/collects/handin-server/utils.ss
+++ b/collects/handin-server/utils.ss
@ -166,7 +166,8 @@
  (define null-input (open-input-string ""))
  (define (safe-eval expr . more)
    (parameterize ([current-security-guard tight-security]
-                   [current-input-port null-input])
+                   [current-input-port null-input]
+                   [current-code-inspector (make-inspector)])
      (apply eval expr more)))

  ;; Execution ----------------------------------------