copy-header ( message msg-stub -- message )

Vocabulary

mongodb.operations.private

Inputs

message	an object
msg-stub	an object

Outputs

message

an object

Definition

USING: accessors combinators ;

IN: mongodb.operations.private

: copy-header ( message msg-stub -- message )
    {
        [ length>> >>length ]
        [ req-id>> >>req-id ]
        [ resp-id>> >>resp-id ]
        [ opcode>> >>opcode ]
        [ flags>> >>flags ]
    } cleave ; inline