From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 4 Oct 1996 18:48:39 +0000 (+0000)
Subject: Fix a thinko in the last change.
X-Git-Tag: 20090517-FFI~5374
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f2c9972bbb853fe124e51e0c55105245f539385;p=mit-scheme.git

Fix a thinko in the last change.
---

diff --git a/v7/src/microcode/x11base.c b/v7/src/microcode/x11base.c
index e0ee34dc6..ce942f1d1 100644
--- a/v7/src/microcode/x11base.c
+++ b/v7/src/microcode/x11base.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: x11base.c,v 1.64 1996/09/30 18:31:14 cph Exp $
+$Id: x11base.c,v 1.65 1996/10/04 18:48:39 cph Exp $
 
 Copyright (c) 1989-95 Massachusetts Institute of Technology
 
@@ -1919,6 +1919,7 @@ DEFINE_PRIMITIVE ("X-WINDOW-SET-INPUT-FOCUS", Prim_x_window_set_input_focus, 2,
 {
   PRIMITIVE_HEADER (2);
   {
+    PTR VOLATILE position = dstack_position;
     struct xwindow * xw = (x_window_arg (1));
     unsigned char status;
 
@@ -1936,7 +1937,11 @@ DEFINE_PRIMITIVE ("X-WINDOW-SET-INPUT-FOCUS", Prim_x_window_set_input_focus, 2,
 	XFlush (display);
       }
     else
-      error_bad_range_arg (1);
+      {
+	dstack_set_position (position);
+	error_bad_range_arg (1);
+      }
+    dstack_set_position (position);
   }
   PRIMITIVE_RETURN (UNSPECIFIC);
 }