suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use a new code inspector for safer eval

Browse Source 
svn: r2319
This commit is contained in:
Eli Barzilay 2006-02-26 02:49:24 +00:00
parent a813ae8434
commit c34a75443e
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/handin-server/utils.ss
View File

@ -166,7 +166,8 @@
(define null-input (open-input-string "")) (define null-input (open-input-string ""))
(define (safe-eval expr . more) (define (safe-eval expr . more)
(parameterize ([current-security-guard tight-security] (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))) (apply eval expr more)))
;; Execution ---------------------------------------- ;; Execution ----------------------------------------