user-defined-key-index ( class -- assoc )

Vocabulary

mongodb.tuple.collection.private

Inputs

class

an object

Outputs

assoc

an object

Definition

USING: accessors hashtables kernel mongodb.tuple
mongodb.tuple.collection ;

IN: mongodb.tuple.collection.private

: user-defined-key-index ( class -- assoc )
    mdb-slot-map user-defined-key [
        drop [ "user-defined-key-index" 1 ] dip associate
        <tuple-index> t >>unique? [ ] [ name>> ] bi associate
    ] [ 2drop H{ } clone ] if ;