From f278926617e870a724a8f4e70187ece2190e6056 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 9 Nov 2008 05:14:53 +0000 Subject: [PATCH] protect more ways of creating a sandbox svn: r12361 --- collects/handin-server/utils.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/handin-server/utils.ss b/collects/handin-server/utils.ss index 9929d59073..d5e802061e 100644 --- a/collects/handin-server/utils.ss +++ b/collects/handin-server/utils.ss @@ -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)])