define-persistent ( class collection slot-options index -- )

Vocabulary

mongodb.tuple

Inputs

class	an object
collection	an object
slot-options	an object
index	an object

Outputs

None

Definition

USING: classes.mixin compiler.units kernel
mongodb.tuple.collection ;

IN: mongodb.tuple

: define-persistent
    ( class collection slot-options index -- )
    [ [ <mdb-tuple-collection> dupd link-collection ] when* ]
    2dip [
        dup [ mdb-persistent add-mixin-instance ] curry
        with-compilation-unit
    ] 2dip [ drop set-slot-map ] [ nip set-index-map ] 3bi ;
    inline