From 34a8c4f248822f473575366fea719568183bf045 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 11 Oct 2007 02:00:24 +0000
Subject: [PATCH] avoid exposing the command-line arguments

svn: r7484

original commit: ac9e9b4f023c71e3421e5d880483b4386aa3a809
---
 collects/mzlib/sandbox.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss
index 6aa661f..15d625c 100644
--- a/collects/mzlib/sandbox.ss
+++ b/collects/mzlib/sandbox.ss
@@ -536,6 +536,8 @@
                        (current-library-collection-paths))
                   require-perms
                   (sandbox-path-permissions))]
+         ;; general info
+         [current-command-line-arguments '#()]
          ;; restrict the sandbox context from this point
          [current-security-guard (sandbox-security-guard)]
          [exit-handler (lambda x (error 'exit "user code cannot exit"))]