From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 19 Jun 2015 20:22:48 +0000 (-0700)
Subject: Remove without-interrupts from runtime/x11graph.scm.
X-Git-Tag: mit-scheme-pucked-9.2.12~376^2~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=afc14ce2a599914fe02bca755e496f7920f5d32b;p=mit-scheme.git

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.
---

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)))))