~ chicken-core (chicken-5) 74c8404dc142e4367a050aa06f5ab34fd159666e

commit 74c8404dc142e4367a050aa06f5ab34fd159666e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Dec 7 09:14:44 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Dec 7 09:14:44 2011 +0100

    use ICONEXCLAMATION on win32 in ##sys#message

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