From 5f0df79c0f7ab09a2f5456c48f7d9b9085f2b971 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Sat, 26 Apr 2003 12:01:24 +0000
Subject: [PATCH] prevent a context switch withing the after-function with
 disable/enable-interrupts

---
 c/xlib/display.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/c/xlib/display.c b/c/xlib/display.c
index 5817923..55c2302 100644
--- a/c/xlib/display.c
+++ b/c/xlib/display.c
@@ -55,7 +55,9 @@ s48_value scx_general_after_function_binding = S48_FALSE;
 static int scx_after_function_wrapper(Display* dpy) {
   s48_value display = scx_enter_display(dpy);
   s48_value fun = S48_SHARED_BINDING_REF(scx_general_after_function_binding);
+  s48_disable_interruptsB();
   s48_call_scheme(fun, 1, display);
+  s48_enable_interruptsB();
   return 0;
 }