wait-for-callback ( callback -- )

Vocabulary

threads.private

Inputs

callback

an object

Outputs

None

Definition

USING: assocs kernel threads ;

IN: threads.private

: wait-for-callback ( callback -- )
    self swap waiting-callbacks set-at
    "Callback return" suspend drop ;