From 36a81d041f656051740b3ef340294bd875c700af Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 14 May 1991 02:02:42 +0000
Subject: [PATCH] Implement SLEEP-FOR.

---
 v7/src/edwin/simple.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 511fbdffb..505199c0c 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.37 1991/05/08 22:46:19 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/simple.scm,v 1.38 1991/05/14 02:02:42 cph Exp $
 ;;;
 ;;;	Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -237,6 +237,11 @@
 		    (< (real-time-clock) time-limit))
 	       (loop)))))))
 
+(define (sleep-for interval)
+  (let ((time-limit (+ (real-time-clock) interval)))
+    (do ()
+	((>= (real-time-clock) time-limit)))))
+
 (define (reposition-window-top mark)
   (if (not (and mark (set-window-start-mark! (current-window) mark false)))
       (editor-beep)))
-- 
2.25.1