From 08d948e60e924631744896560cf64662dc45b04e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 9 Aug 2008 06:21:51 +0000 Subject: [PATCH] use single-instance? just in case svn: r11166 --- collects/mred/script-installer.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mred/script-installer.ss b/collects/mred/script-installer.ss index dd00949353..1b94fe625f 100644 --- a/collects/mred/script-installer.ss +++ b/collects/mred/script-installer.ss @@ -10,9 +10,10 @@ (let ([v (findf (lambda (v) (memq v variants)) vs)]) (when v (parameterize ([current-launcher-variant v]) - (make-mred-launcher '("-z") - (mred-program-launcher-path "mred-text") - '([relative? . #t] [subsystem . console])))))) + (make-mred-launcher + '("-z") + (mred-program-launcher-path "mred-text") + '([relative? . #t] [subsystem . console] [single-instance? . #f])))))) ;; add a bin/mred script under OS X (when (eq? 'macosx (system-type)) (for ([v variants] #:when (memq v '(script-3m script-cgc)))