make-cmd ( cmd-stub -- cmd-assoc )

Vocabulary

mongodb.cmd

Inputs

cmd-stub

an object

Outputs

cmd-assoc

an object

Definition

USING: accessors kernel linked-assocs ;

IN: mongodb.cmd

: make-cmd ( cmd-stub -- cmd-assoc )
    dup const?>>
    [ ] [ clone [ clone <linked-assoc> ] change-assoc ] if ;
    inline