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

add -singleInstance handling to launcher

Browse Source 
svn: r5704
This commit is contained in:
Matthew Flatt 2007-02-28 00:08:16 +00:00
parent d67ab8b0a9
commit f27a325fbc
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/launcher/launcher-unit.ss
View File

@ -173,7 +173,8 @@
(define no-arg-x-flags '((xk "-iconic") (define no-arg-x-flags '((xk "-iconic")
(xl "-rv" "-reverse") (xl "-rv" "-reverse")
(xm "+rv") (xm "+rv")
(xn "-synchronous"))) (xn "-synchronous")
(xo "-singleInstance")))
(define (skip-x-flags flags) (define (skip-x-flags flags)
(let ([xfmem (lambda (flag) (lambda (xf) (member flag (cdr xf))))]) (let ([xfmem (lambda (flag) (lambda (xf) (member flag (cdr xf))))])