From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 17 Apr 2013 16:07:28 +0000 (-0700)
Subject: Typo: thread-queue/dequeue-until!.
X-Git-Tag: release-9.2.0~189
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=af8b46ab4a1edd9cceefacbdd86060c739e41c6a;p=mit-scheme.git

Typo: thread-queue/dequeue-until!.
---

diff --git a/src/runtime/thread-queue.scm b/src/runtime/thread-queue.scm
index d3259a34f..6c9b8f0d9 100644
--- a/src/runtime/thread-queue.scm
+++ b/src/runtime/thread-queue.scm
@@ -124,7 +124,7 @@ USA.
 (define (thread-queue/dequeue-no-hang! queue msec)
   (guarantee-thread-queue queue 'thread-queue/dequeue-no-hang!)
   (guarantee-non-negative-fixnum msec 'thread-queue/dequeue-no-hang!)
-  (thread-queue/dequeue-until
+  (thread-queue/dequeue-until!
    queue (+ (real-time-clock) (internal-time/seconds->ticks (/ msec 1000)))))
 
 (define (thread-queue/dequeue-until! queue time)