From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Tue, 9 Aug 2016 19:52:49 +0000 (-0700)
Subject: runtime/thread.scm (register-time-event): typo
X-Git-Tag: mit-scheme-pucked-9.2.12~261^2~2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0ab74c04e565c801e73d0955a2ec7d034f040cc8;p=mit-scheme.git

runtime/thread.scm (register-time-event): typo
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 51a27f9e8..911927969 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -1024,7 +1024,7 @@ USA.
 		     (set! timer-records new-record)))
 	       (loop (timer-record/next record) record)))
 	 (%maybe-toggle-thread-timer)))
-      new-record)))
+      new-record))
 
 (define (sleep-current-thread interval)
   (let ((delivered? #f))