add-source-to-run-loop ( source -- )

Vocabulary

core-foundation.run-loop

Inputs

source

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: core-foundation.run-loop

: add-source-to-run-loop ( source -- )
    [ get-run-loop sources>> push ] [
        CFRunLoopGetMain swap CFRunLoopDefaultMode
        CFRunLoopAddSource
    ] bi ;