wait-loop ( -- )

Vocabulary

io.launcher.private

Inputs

None

Outputs

None

Definition

USING: assocs calendar concurrency.flags io.launcher kernel math
math.order namespaces threads ;

IN: io.launcher.private

: wait-loop ( -- )
    processes get assoc-empty?
    [ 5 wait-delay set-global wait-flag get-global lower-flag ] 
    [
        (wait-for-processes) [
            wait-delay
            [ [ milliseconds sleep ] [ 5 + 100 max ] bi ]
            change-global
        ] when
    ] if ;