From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 29 May 2019 21:14:09 +0000 (+0000)
Subject: Fix bug that caused redrawing whole display on paren flash.
X-Git-Tag: mit-scheme-pucked-10.1.11~6^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5ae9aa0dbfd5160ca639af31ccda32366a99173d;p=mit-scheme.git

Fix bug that caused redrawing whole display on paren flash.
---

diff --git a/src/edwin/simple.scm b/src/edwin/simple.scm
index fed4f0bb3..89ddd3621 100644
--- a/src/edwin/simple.scm
+++ b/src/edwin/simple.scm
@@ -227,7 +227,7 @@ USA.
 
 (define (sit-for interval)
   (guarantee fixnum? interval 'sit-for)
-  (update-screens! 'ignore-input)
+  (update-screens! '(ignore-input))
   (keyboard-peek-no-hang interval))
 
 (define sleep-for