prepare-assoc>tuple ( assoc -- tuple keylist mirror assoc )


Vocabulary
mongodb.tuple.persistent.private

Inputs
assocan object


Outputs
tuplean object
keylistan object
mirroran object
assocan object


Definition
USING: assocs kernel mirrors mongodb.tuple.state ;

IN: mongodb.tuple.persistent.private

: prepare-assoc>tuple
( assoc -- tuple keylist mirror assoc )
[ tuple-info tuple-instance dup <mirror> [ keys ] keep ]
keep swap ; inline