From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 1999 05:53:39 +0000 (+0000)
Subject: Eliminate definition of WITH-THREAD-EVENTS-BLOCKED, which is now
X-Git-Tag: 20090517-FFI~4592
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=90e98bb9482953bf0b670f51bd9dc3861dcd610e;p=mit-scheme.git

Eliminate definition of WITH-THREAD-EVENTS-BLOCKED, which is now
implemented by the runtime system.
---

diff --git a/v7/src/edwin/xterm.scm b/v7/src/edwin/xterm.scm
index cf212368a..a9540f91c 100644
--- a/v7/src/edwin/xterm.scm
+++ b/v7/src/edwin/xterm.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xterm.scm,v 1.57 1999/02/22 05:05:10 cph Exp $
+;;; $Id: xterm.scm,v 1.58 1999/02/28 05:53:39 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -1183,15 +1183,6 @@
 	      (receive-selection xterm property 'C_STRING time))
 	     (else #f))))))
 
-(define (with-thread-events-blocked thunk)
-  (let ((block-events?))
-    (dynamic-wind (lambda ()
-		    (set! block-events? (block-thread-events))
-		    unspecific)
-		  thunk
-		  (lambda ()
-		    (if (not block-events?) (unblock-thread-events))))))
-
 (define (request-selection xterm selection target property time)
   (let ((display (x-window-display xterm))
 	(window (x-window-id xterm)))