avoid exposing the command-line arguments

svn: r7484
2007-10-11 02:00:24 +00:00 · 2007-10-11 02:00:24 +00:00 · ac9e9b4f02
commit ac9e9b4f02
parent 05b37c3ed7
1 changed files with 2 additions and 0 deletions
--- 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"))]