From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 May 1997 06:30:59 +0000 (+0000)
Subject: Change error-reporting procedure to eliminate redundant sentences for
X-Git-Tag: 20090517-FFI~5172
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ff29a5f17d5513871e6ddd99c0de85049a409d44;p=mit-scheme.git

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 a8036f962..64157344d 100644
--- 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