From 0514bec845decd5f6bf124b161062052f8bd1e84 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 5 Dec 2011 13:42:12 -0500 Subject: [PATCH] When `make-evaluator' receives a path to a file, it allows reading it. --- collects/racket/sandbox.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/collects/racket/sandbox.rkt b/collects/racket/sandbox.rkt index eec0886747..1eaf262ad7 100644 --- a/collects/racket/sandbox.rkt +++ b/collects/racket/sandbox.rkt @@ -976,6 +976,10 @@ (init-hook-for-language lang) (append (extract-required (or (decode-language lang) lang) reqs) + (if (and (= 1 (length input-program)) + (path? (car input-program))) + (list (car input-program)) + '()) allow) (lambda () (build-program lang reqs input-program))))