invalidate-run-loop-timers ( -- )

Vocabulary

core-foundation.run-loop

Inputs

None

Outputs

None

Definition

USING: accessors core-foundation core-foundation.timers kernel
sequences ;

IN: core-foundation.run-loop

: invalidate-run-loop-timers ( -- )
    get-run-loop [
        [ [ CFRunLoopTimerInvalidate ] [ CFRelease ] bi ] each
        V{ } clone
    ] change-timers drop ;