From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 20 Sep 1996 18:54:48 +0000 (+0000)
Subject: Patch to help fix bug in 6.001 debugger.
X-Git-Tag: 20090517-FFI~5393
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e9eaffad928dce1ffb69f4f4786f802fa5d10795;p=mit-scheme.git

Patch to help fix bug in 6.001 debugger.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index c8ddf571b..62a76b5e7 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.62 1996/09/12 19:23:48 cph Exp $
+$Id: x11base.c,v 1.63 1996/09/20 18:54:48 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1920,11 +1920,17 @@ DEFINE_PRIMITIVE ("X-WINDOW-SET-INPUT-FOCUS", Prim_x_window_set_input_focus, 2,
   PRIMITIVE_HEADER (2);
   {
     struct xwindow * xw = (x_window_arg (1));
-    XSetInputFocus
-      ((XW_DISPLAY (xw)),
-       (XW_WINDOW (xw)),
-       RevertToParent,
-       ((Time) (arg_ulong_integer (2))));
+    unsigned char status;
+
+    CATCH_X_ERRORS (status);
+    if (status == 0)
+      XSetInputFocus
+	((XW_DISPLAY (xw)),
+	 (XW_WINDOW (xw)),
+	 RevertToParent,
+	 ((Time) (arg_ulong_integer (2))));
+    else
+      error_bad_range_arg (1);
   }
   PRIMITIVE_RETURN (UNSPECIFIC);
 }