do not trust require spec from user code

svn: r7342 original commit: 45649900e7047828f8e9aa536ea6f33af361b7e0
2007-09-15 00:50:54 +00:00 · 2007-09-15 00:50:54 +00:00 · b166d5b37e
commit b166d5b37e
parent 5779d59bfb
1 changed files with 1 additions and 5 deletions
--- a/collects/mzlib/sandbox.ss
+++ b/collects/mzlib/sandbox.ss
@ -586,11 +586,7 @@
                    "got more than a single expression")))
         (syntax-case* (car prog) (module) literal-identifier=?
           [(module modname lang body ...)
-            (make-evaluator*
-             void
-             (require-perms (syntax-object->datum #'lang)
-                            (cons 'begin (syntax->list #'(body ...))))
-             (car prog))]
+            (make-evaluator* void '() (car prog))]
           [_else (error 'make-evaluator "expecting a `module' program; got ~e"
                         (syntax-object->datum (car prog)))]))]))