write-killcursors-message ( message -- )

Vocabulary

mongodb.operations.private

Inputs

message

an object

Outputs

None

Definition

USING: accessors bson.private kernel sequences ;

IN: mongodb.operations.private

: write-killcursors-message ( message -- )
    [
        [ flags>> write-int32 ] [ cursors#>> write-int32 ]
        [ cursors>> [ write-longlong ] each ] tri
    ] (write-message) ; inline