From b166d5b37e3a71cc0a92cbb199d83bb2712b2702 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sat, 15 Sep 2007 00:50:54 +0000
Subject: [PATCH] do not trust require spec from user code

svn: r7342

original commit: 45649900e7047828f8e9aa536ea6f33af361b7e0
---
 collects/mzlib/sandbox.ss | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss
index a84df40..d040cf8 100644
--- 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)))]))]))