link-class ( collection class -- )

Vocabulary

mongodb.tuple.collection

Inputs

collection	an object
class	an object

Outputs

None

Definition

USING: accessors kernel sequences vectors ;

IN: mongodb.tuple.collection

: link-class ( collection class -- )
    over classes>>
    [ 2dup member? [ 2drop ] [ push ] if ] [ 1vector >>classes ]
    if* drop ; inline