avoid exposing the command-line arguments

svn: r7484 original commit: ac9e9b4f023c71e3421e5d880483b4386aa3a809
2007-10-11 02:00:24 +00:00 · 2007-10-11 02:00:24 +00:00 · 34a8c4f248
commit 34a8c4f248
parent 69b998cb2b
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"))]