interactor-yield ( interactor -- obj )

Vocabulary

ui.tools.listener

Inputs

interactor

an object

Outputs

obj

an object

Definition

USING: accessors combinators concurrency.flags
concurrency.mailboxes kernel threads ;

IN: ui.tools.listener

: interactor-yield ( interactor -- obj )
    dup thread>> self eq? [
        {
            [ t >>waiting drop ]
            [ flag>> raise-flag ]
            [ mailbox>> mailbox-get ]
            [ f >>waiting drop ]
        } cleave
    ] [ drop f ] if ;