Change error-reporting procedure to eliminate redundant sentences for

fatal errors.

diff --git a/v7/src/microcode/os2pm.c b/v7/src/microcode/os2pm.c
index a8036f962b353ed3c53bbb95e42ec5d07c0d532f..64157344dfe59f41fef72481d031e6aea73b8afb 100644 (file)
--- a/v7/src/microcode/os2pm.c
+++ b/v7/src/microcode/os2pm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2pm.c,v 1.30 1997/04/01 05:57:25 cph Exp $
+$Id: os2pm.c,v 1.31 1997/05/21 06:30:59 cph Exp $
 
 Copyright (c) 1994-97 Massachusetts Institute of Technology
 
@@ -317,19 +317,25 @@ window_error_1 (const char * name, int fatalp)
 {
   char buffer [1024];
   ERRORID code = (WinGetLastError (pm_hab));
-  sprintf (buffer, "%s error 0x%08x occurred in the %s procedure.  \
-This indicates a bug in the Scheme implementation.  \
-Please report this information to a Scheme wizard.",
-          (fatalp ? "Fatal" : "Non-fatal"), code, name);
   if (fatalp)
-    OS2_logic_error (buffer);
+    {
+      sprintf (buffer, "Fatal error 0x%08x occurred in the %s procedure.",
+              code, name);
+      OS2_logic_error (buffer);
+    }
   else
-    (void) WinMessageBox (HWND_DESKTOP,
-                         NULLHANDLE,
-                         buffer,
-                         "Scheme Error",
-                         0,
-                         (MB_OK | MB_WARNING));
+    {
+      sprintf (buffer, "Non-fatal error 0x%08x occurred in the %s procedure.  \
+This indicates a bug in the Scheme implementation.  \
+Please report this information to a Scheme wizard.",
+              code, name);
+      (void) WinMessageBox (HWND_DESKTOP,
+                           NULLHANDLE,
+                           buffer,
+                           "Scheme Error",
+                           0,
+                           (MB_OK | MB_WARNING));
+    }
 }
 
 void