mdb-check-slots ( superclass slots -- superclass slots )

Vocabulary

mongodb.tuple.collection

Inputs

superclass	an object
slots	an object

Outputs

superclass	an object
slots	an object

Definition

USING: accessors bson.constants classes.tuple kernel sequences ;

IN: mongodb.tuple.collection

: mdb-check-slots ( superclass slots -- superclass slots )
    over all-slots [ name>> ] map [ MDB_OID_FIELD ] dip member?
    [ ] [ MDB_ADDON_SLOTS prepend ] if ; inline