From c74fde93dd803a3bd488d5b18dac0bd5d67ee3af Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Feb 1992 22:18:12 +0000
Subject: [PATCH] Change SIT-FOR to update screens while waiting. Change
SLEEP-FOR to be the same as SLEEP-CURRENT-THREAD.
---
v7/src/edwin/simple.scm | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 446686ee4..4f0c04adb 100644
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.42 1992/02/19 00:01:59 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.43 1992/02/25 22:18:12 cph Exp $
;;;
;;; Copyright (c) 1985, 1989-92 Massachusetts Institute of Technology
;;;
@@ -233,13 +233,12 @@
(let ((time-limit (+ (real-time-clock) interval)))
(let loop ()
(if (and (not (keyboard-peek-no-hang))
- (< (real-time-clock) time-limit))
+ (< (real-time-clock) time-limit)
+ (update-screens! false))
(loop)))))
-(define (sleep-for interval)
- (let ((time-limit (+ (real-time-clock) interval)))
- (do ()
- ((>= (real-time-clock) time-limit)))))
+(define sleep-for
+ sleep-current-thread)
(define (reposition-window-top mark)
(if (not (and mark (set-window-start-mark! (current-window) mark false)))
--
2.25.1