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

protect more ways of creating a sandbox

Browse Source 
svn: r12361
This commit is contained in:
Eli Barzilay 2008-11-09 05:14:53 +00:00
parent 2394848555
commit f278926617
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,9 +49,11 @@
;; Execution ----------------------------------------
(define (make-evaluator* lang reqs inp)
(if (and (list? lang) (= 2 (length lang)) (eq? 'module (car lang)))
(make-module-evaluator inp #:language (cadr lang) #:allow-read reqs)
(make-evaluator lang inp #:requires reqs)))
(reraise-exn-as-submission-problem
(lambda ()
(if (and (list? lang) (= 2 (length lang)) (eq? 'module (car lang)))
(make-module-evaluator inp #:language (cadr lang) #:allow-read reqs)
(make-evaluator lang inp #:requires reqs)))))
(define (open-input-text-editor/lines str)
(let ([inp (open-input-text-editor str)])