From 61e26118497b6efbfce6af809f4b2d9e71235ba4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 28 Apr 1993 19:47:27 +0000 Subject: [PATCH] Fix typo in last change. --- v7/src/runtime/thread.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/thread.scm b/v7/src/runtime/thread.scm index e74d635bf..c1adb3e60 100644 --- a/v7/src/runtime/thread.scm +++ b/v7/src/runtime/thread.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: thread.scm,v 1.11 1993/04/27 20:21:26 hal Exp $ +$Id: thread.scm,v 1.12 1993/04/28 19:47:27 cph Exp $ Copyright (c) 1991-1993 Massachusetts Institute of Technology @@ -643,8 +643,7 @@ MIT in each case. |# new-record))) (define (sleep-current-thread interval) - (let ((time (+ (real-time-clock) interval)) - (delivered? #f)) + (let ((delivered? #f)) (let ((block-events? (block-thread-events))) (register-timer-event interval (lambda () (set! delivered? #t) unspecific)) -- 2.25.1