When `make-evaluator' receives a path to a file, it allows reading it.

2011-12-05 13:42:12 -05:00 · 2011-12-05 13:42:12 -05:00 · 0514bec845
commit 0514bec845
parent 6fae17282f
1 changed files with 4 additions and 0 deletions
--- 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))))