start-wait-thread ( -- )

Vocabulary

io.launcher.private

Inputs

None

Outputs

None

Definition

USING: concurrency.flags kernel namespaces threads ;

IN: io.launcher.private

: start-wait-thread ( -- )
    <flag> wait-flag set-global 5 wait-delay set-global
    [ wait-loop t ] "Process wait" spawn-server drop ;