Typo: thread-queue/dequeue-until!.

diff --git a/src/runtime/thread-queue.scm b/src/runtime/thread-queue.scm
index d3259a34f49161e39b0401dccd9004a8887d9a50..6c9b8f0d979525847d3754220c4e3edab9c8176f 100644 (file)
--- 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)