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 ;