handle-synchronous ( quot: ( ... message -- ... reply ) -- )
Message-passing concurrency » Synchronous sends

Prev:

reply-synchronous ( message synchronous -- )

Vocabulary
concurrency.messaging

Inputs

quot	a quotation with stack effect ( ... message -- ... reply )

Outputs
None

Word description
Receive a message that was sent with send-synchronous, call quot to transform it into a response and use reply-synchronous to reply.

Definition

USING: accessors kernel ;

IN: concurrency.messaging

: handle-synchronous
    ( quot: ( ... message -- ... reply ) -- )
    receive [ data>> swap call ] keep reply-synchronous ; inline