send-packet ( obj connection -- )

Vocabulary

msgpack.rpc.private

Inputs

obj	an object
connection	an object

Outputs

None

Definition

USING: accessors concurrency.locks io io.streams.duplex kernel
msgpack ;

IN: msgpack.rpc.private

: send-packet ( obj connection -- )
    dup output-lock>>
    [ stream>> [ write-msgpack flush ] with-stream* ] with-lock
    ;