prepare-assoc ( tuple -- assoc mirror tuple assoc )


Vocabulary
mongodb.tuple.persistent.private

Inputs
tuplean object


Outputs
assocan object
mirroran object
tuplean object
assocan object


Definition
USING: kernel mirrors ;

IN: mongodb.tuple.persistent.private

: prepare-assoc ( tuple -- assoc mirror tuple assoc )
H{ } clone swap [ <mirror> ] keep pick ; inline