run-one-iteration ( nanos -- handled? )

Vocabulary

core-foundation.run-loop

Inputs

nanos

an object

Outputs

handled?

an object

Definition

USING: kernel math ;

IN: core-foundation.run-loop

: run-one-iteration ( nanos -- handled? )
    CFRunLoopDefaultMode swap [ 1000000000 /f ] [ 300 ] if*
    t CFRunLoopRunInMode kCFRunLoopRunHandledSource = ;