<mdb-insert-msg> ( collection objects -- mdb-insert-msg )

Vocabulary

mongodb.msg

Inputs

collection	an object
objects	an object

Outputs

mdb-insert-msg

an object

Definition

IN: mongodb.msg

GENERIC: <mdb-insert-msg>
    ( collection objects -- mdb-insert-msg )

Methods

USING: accessors assocs kernel mongodb.msg sequences ;

M: assoc <mdb-insert-msg>
    [ mdb-insert-msg new ] 2dip [ >>collection ] dip
    [ V{ } clone ] dip suffix! >>objects OP_Insert >>opcode ;


USING: accessors kernel mongodb.msg sequences ;

M: sequence <mdb-insert-msg>
    [ mdb-insert-msg new ] 2dip [ >>collection ] dip >>objects
    OP_Insert >>opcode ;