suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

use single-instance? just in case

Browse Source 
svn: r11166
This commit is contained in:
Eli Barzilay 2008-08-09 06:21:51 +00:00
parent 4dece4104d
commit 08d948e60e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/script-installer.ss
View File

@ -10,9 +10,10 @@
(let ([v (findf (lambda (v) (memq v variants)) vs)]) (let ([v (findf (lambda (v) (memq v variants)) vs)])
(when v (when v
(parameterize ([current-launcher-variant v]) (parameterize ([current-launcher-variant v])
(make-mred-launcher '("-z") (make-mred-launcher
(mred-program-launcher-path "mred-text") '("-z")
'([relative? . #t] [subsystem . console])))))) (mred-program-launcher-path "mred-text")
'([relative? . #t] [subsystem . console] [single-instance? . #f]))))))
;; add a bin/mred script under OS X ;; add a bin/mred script under OS X
(when (eq? 'macosx (system-type)) (when (eq? 'macosx (system-type))
(for ([v variants] #:when (memq v '(script-3m script-cgc))) (for ([v variants] #:when (memq v '(script-3m script-cgc)))