send-synchronous ( message thread -- reply )
Message-passing concurrency » Synchronous sends

Next:

reply-synchronous ( message synchronous -- )

Vocabulary
concurrency.messaging

Inputs

message	an object
thread	an object

Outputs

reply

an object

Definition

USING: accessors kernel threads ;

IN: concurrency.messaging

: send-synchronous ( message thread -- reply )
    dup self eq?
    [ cannot-send-synchronous-to-self ] [
        [ <synchronous> dup ] dip send
        [ synchronous-reply? ] curry receive-if data>>
    ] if ;