From fa6423e658710fb0374605ccfe62e31fb32417a0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 22 Jun 2009 12:23:41 +0000 Subject: [PATCH] fix Create Executable to include -U and -- flags automatically svn: r15229 --- collects/drscheme/private/module-language.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss index d86836ecb0..e62705f34f 100644 --- a/collects/drscheme/private/module-language.ss +++ b/collects/drscheme/private/module-language.ss @@ -282,7 +282,7 @@ (namespace-require 'scheme/base) (compile `(namespace-require '',(string->symbol (path->string short-program-name)))))) - #:cmdline null)))) + #:cmdline '("-U" "--"))))) (let ([make-launcher (if gui? make-mred-launcher make-mzscheme-launcher)]) (make-launcher (list "-qt-" (path->string program-filename)) executable-filename))))))))