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

5
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))))])
@ -221,7 +222,7 @@
no-arg-x-flags) no-arg-x-flags)
(list (list
(format (string-append (format (string-append
" *)\n ~a~a~a ;;\n" " *)\n ~a~a ~a ;;\n"
" esac\n" " esac\n"
" shift\n" " shift\n"
" if [ \"$oneargflag\" != '' ] ; then\n" " if [ \"$oneargflag\" != '' ] ; then\n"