~ chicken-core (chicken-5) ded31c27df2076e1014f8ee52cecf9f4323e79cb

commit ded31c27df2076e1014f8ee52cecf9f4323e79cb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 2 11:45:42 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 2 11:45:42 2011 +0100

    don't exit process in gui mode when ##sys#message is called (probably copy+paste error)

diff --git a/runtime.c b/runtime.c
index d0e14258..a3c73313 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3823,7 +3823,7 @@ C_word C_message(C_word msg)
     buffer[ n ] = '\0';
 #if defined(_WIN32) && !defined(__CYGWIN__)
     MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR);
-    ExitProcess(1);
+    return C_SCHEME_UNDEFINED;
 #endif
   } /* fall through */