add-timer-to-run-loop ( timer -- )

Vocabulary

core-foundation.run-loop

Inputs

timer

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: core-foundation.run-loop

: add-timer-to-run-loop ( timer -- )
    [ get-run-loop timers>> push ] [
        CFRunLoopGetMain swap CFRunLoopDefaultMode
        CFRunLoopAddTimer
    ] bi ;