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

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 51a27f9e8aa64208c949f69247b26050ed998ecb..911927969e2560a68e9eabb6167c26807bbdb484 100644 (file)
--- 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))