From dc1eefbcc934f13b5a2daaaec271812cd8ee5b62 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 19 Nov 2009 14:18:27 -0600 Subject: [PATCH] update run-loop multiplexer --- basis/core-foundation/run-loop/run-loop.factor | 4 ++-- basis/io/backend/unix/multiplexers/run-loop/run-loop.factor | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor index 0b61274b22..c9d2d5c9cd 100644 --- a/basis/core-foundation/run-loop/run-loop.factor +++ b/basis/core-foundation/run-loop/run-loop.factor @@ -121,8 +121,8 @@ PRIVATE> : init-thread-timer ( -- ) timer-callback add-timer-to-run-loop ; -: run-one-iteration ( us -- handled? ) +: run-one-iteration ( nanos -- handled? ) reset-run-loop CFRunLoopDefaultMode - swap [ microseconds ] [ 5 minutes ] if* >CFTimeInterval + swap [ nanoseconds ] [ 5 minutes ] if* >CFTimeInterval t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ; diff --git a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor index 276949a99f..05328b48dc 100644 --- a/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor +++ b/basis/io/backend/unix/multiplexers/run-loop/run-loop.factor @@ -30,5 +30,5 @@ M: run-loop-mx add-output-callback kqueue-mx>> add-output-callback ; M: run-loop-mx remove-input-callbacks kqueue-mx>> remove-input-callbacks ; M: run-loop-mx remove-output-callbacks kqueue-mx>> remove-output-callbacks ; -M: run-loop-mx wait-for-events ( us mx -- ) +M: run-loop-mx wait-for-events ( nanos mx -- ) swap run-one-iteration [ 0 swap wait-for-events ] [ drop ] if ;