feed-request ( session request quot: ( response -- .. ) -- )

Vocabulary

msgpack.rpc.private

Inputs

session	an object
request	an object
quot	a quotation with stack effect ( response -- .. )

Outputs

None

Definition

USING: accessors assocs ;

IN: msgpack.rpc.private

:: feed-request
    ( session request quot: ( response -- .. ) -- )
    session outgoing-requests>> :> requests request requests
    check-request-id-absent quot request msgid>> requests set-at
    ;