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

exit -singleInstance transfer with success instead of failure

Browse Source 
svn: r16208
This commit is contained in:
Matthew Flatt 2009-10-01 23:51:35 +00:00
parent a6825c5e58
commit 6d968cbfa8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/mred.cxx
View File

@ -3200,6 +3200,8 @@ static void on_main_killed(Scheme_Thread *p)
void MrEdApp::RealInit(void) void MrEdApp::RealInit(void)
{ {
Scheme_Thread *thread; Scheme_Thread *thread;
int skip = 0;
thread = scheme_get_current_thread(); thread = scheme_get_current_thread();
initialized = 1; initialized = 1;
@ -3212,11 +3214,11 @@ void MrEdApp::RealInit(void)
#ifdef wx_xt #ifdef wx_xt
if (wx_single_instance) { if (wx_single_instance) {
exit_val = wxCheckSingleInstance(global_env); skip = wxCheckSingleInstance(global_env);
} }
#endif #endif
if (!exit_val) if (!exit_val && !skip)
exit_val = mred_finish_cmd_line_run(); exit_val = mred_finish_cmd_line_run();
scheme_kill_thread(thread); scheme_kill_thread(thread);