(wait-for-process) ( process -- status )

Vocabulary

io.launcher

Inputs

process

an object

Outputs

status

an object

Definition

USING: accessors assocs kernel namespaces sequences threads ;

IN: io.launcher

: (wait-for-process) ( process -- status )
    dup handle>>
    [ self over processes get at push "process" suspend drop ]
    when dup killed>> [ process-was-killed ] [ status>> ] if ;