From 6d968cbfa8e77b249d5db650cd847aac6c99122a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Oct 2009 23:51:35 +0000
Subject: [PATCH] exit -singleInstance transfer with success instead of failure

svn: r16208
---
 src/mred/mred.cxx | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/mred/mred.cxx b/src/mred/mred.cxx
index 9a0e9dc7d3..7b8027a8a0 100644
--- a/src/mred/mred.cxx
+++ b/src/mred/mred.cxx
@@ -3200,6 +3200,8 @@ static void on_main_killed(Scheme_Thread *p)
 void MrEdApp::RealInit(void)
 {
   Scheme_Thread *thread;
+  int skip = 0;
+
   thread = scheme_get_current_thread();
 
   initialized = 1;
@@ -3212,11 +3214,11 @@ void MrEdApp::RealInit(void)
 
 #ifdef wx_xt
   if (wx_single_instance) {
-    exit_val = wxCheckSingleInstance(global_env);
+    skip = wxCheckSingleInstance(global_env);
   }
 #endif
 
-  if (!exit_val)
+  if (!exit_val && !skip)
     exit_val = mred_finish_cmd_line_run();
 
   scheme_kill_thread(thread);