linked-error-test ( -- )

Vocabulary

tools.deploy.test.22

Inputs

None

Outputs

None

Definition

USING: accessors concurrency.messaging continuations kernel
system ;

IN: tools.deploy.test.22

: linked-error-test ( -- )
    [ "Linked" throw ] "Test" spawn-linked drop
    [ receive drop 1 ] [ error>> "Linked" = 0 1 ? ] recover exit
    ;