From af8b46ab4a1edd9cceefacbdd86060c739e41c6a Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 17 Apr 2013 09:07:28 -0700 Subject: [PATCH] Typo: thread-queue/dequeue-until!. --- src/runtime/thread-queue.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.25.1