From aa7292aa9009fc0aba9aad8738a8a3e803cf5cc4 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 19 Jun 2015 13:22:48 -0700 Subject: [PATCH] Remove without-interrupts from runtime/x11graph.scm. Replaced it with without-interruption. Presumably the desire was to keep the permanently registered IO thread event from interrupting itself. --- src/runtime/x11graph.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/runtime/x11graph.scm b/src/runtime/x11graph.scm index be741ce99..8db486d6b 100644 --- a/src/runtime/x11graph.scm +++ b/src/runtime/x11graph.scm @@ -261,7 +261,7 @@ USA. display))))) (define (x-graphics/close-display display) - (without-interrupts + (without-interruption (lambda () (if (x-display/xd display) (begin @@ -341,7 +341,7 @@ USA. (with-thread-events-blocked loop))) (define (process-event display event) - (without-interrupts + (without-interruption (lambda () (let ((window (search-gc-finalizer (x-display/window-finalizer display) @@ -446,7 +446,7 @@ USA. (if (x-graphics-device/xw device) #t #f)) (define (x-graphics/close-window device) - (without-interrupts + (without-interruption (lambda () (close-x-window (graphics-device/descriptor device))))) -- 2.25.1