From f27a325fbc998e9f0427dac77e4ed94e1e3bfb05 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 28 Feb 2007 00:08:16 +0000
Subject: [PATCH] add -singleInstance handling to launcher

svn: r5704
---
 collects/launcher/launcher-unit.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/launcher/launcher-unit.ss b/collects/launcher/launcher-unit.ss
index dd1125c058..a77bd969c7 100644
--- a/collects/launcher/launcher-unit.ss
+++ b/collects/launcher/launcher-unit.ss
@@ -173,7 +173,8 @@
       (define no-arg-x-flags '((xk "-iconic") 
 			       (xl "-rv" "-reverse") 
 			       (xm "+rv") 
-			       (xn "-synchronous")))
+			       (xn "-synchronous")
+                               (xo "-singleInstance")))
 
       (define (skip-x-flags flags)
 	(let ([xfmem (lambda (flag) (lambda (xf) (member flag (cdr xf))))])
@@ -221,7 +222,7 @@
 	     no-arg-x-flags)
 	    (list
 	     (format (string-append
-		      "  *)\n    ~a~a~a  ;;\n"
+		      "  *)\n    ~a~a ~a  ;;\n"
 		      " esac\n"
 		      " shift\n"
 		      " if [ \"$oneargflag\" != '' ] ; then\n"