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

use an empty input port for all evaluations

Browse Source 
svn: r1547
This commit is contained in:
Eli Barzilay 2005-12-07 00:52:33 +00:00
parent f41e7a8352
commit 88a6f81a50
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,8 +163,10 @@
(error what "file access denied (~a)" path))) (error what "file access denied (~a)" path)))
(lambda (what host port mode) (error what "network access denied")))) (lambda (what host port mode) (error what "network access denied"))))
(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])
(apply eval expr more))) (apply eval expr more)))
;; Execution ---------------------------------------- ;; Execution ----------------------------------------