wait ( channel -- )

Vocabulary

channels.private

Inputs

channel

an object

Outputs

None

Definition

USING: accessors kernel sequences threads ;

IN: channels.private

: wait ( channel -- )
    [ self ] dip senders>> push "channel send" suspend drop ;