From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 26 Sep 1996 23:20:08 +0000 (+0000)
Subject: Fix interrupt hole in updating of screen size.
X-Git-Tag: 20090517-FFI~5392
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=29170b6dd365bdeb505f0d23e4c95590615417df;p=mit-scheme.git

Fix interrupt hole in updating of screen size.
---

diff --git a/v7/src/edwin/os2term.scm b/v7/src/edwin/os2term.scm
index 0411806e1..7cd0e5ae4 100644
--- a/v7/src/edwin/os2term.scm
+++ b/v7/src/edwin/os2term.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2term.scm,v 1.17 1996/05/14 05:42:46 cph Exp $
+;;;	$Id: os2term.scm,v 1.18 1996/09/26 23:20:08 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-96 Massachusetts Institute of Technology
 ;;;
@@ -954,11 +954,14 @@
 		     (= y-size (screen-y-size screen))))
 	   (lambda ()
 	     (let ((size (fix:* x-size y-size)))
-	       (set-screen-char-map! screen (make-string size #\space))
-	       (set-screen-face-map!
-		screen
-		(make-vector size (screen-current-face screen))))
-	     (set-screen-size! screen x-size y-size))))))
+	       (let ((char-map (make-string size #\space))
+		     (face-map
+		      (make-vector size (screen-current-face screen))))
+		 (without-interrupts
+		  (lambda ()
+		    (set-screen-char-map! screen char-map)
+		    (set-screen-face-map! screen face-map)
+		    (set-screen-size! screen x-size y-size))))))))))
 
 (define-event-handler event-type:visibility
   (lambda (screen event)