1 USING: classes kernel accessors sequences fry assocs mongodb.tuple.collection
2 words classes.tuple slots generic ;
4 IN: mongodb.tuple.state
8 CONSTANT: MDB_TUPLE_INFO "_mfd_t_info"
12 : <tuple-info> ( tuple -- tuple-info )
13 class-of [ V{ } clone ] dip over
14 [ [ name>> ] dip push ]
15 [ [ vocabulary>> ] dip push ] 2bi ; inline
17 : tuple-info ( assoc -- tuple-info )
18 [ MDB_TUPLE_INFO ] dip at ; inline
20 : set-tuple-info ( tuple assoc -- )
21 [ <tuple-info> MDB_TUPLE_INFO ] dip set-at ; inline
23 : tuple-info? ( assoc -- ? )
24 [ MDB_TUPLE_INFO ] dip key? ;