-USING: classes kernel accessors sequences fry assocs mongodb.tuple.collection
-words classes.tuple slots generic ;
-
+USING: accessors assocs classes kernel sequences ;
IN: mongodb.tuple.state
<PRIVATE
PRIVATE>
: <tuple-info> ( tuple -- tuple-info )
- class [ V{ } clone ] dip over
+ class-of [ V{ } clone ] dip over
[ [ name>> ] dip push ]
[ [ vocabulary>> ] dip push ] 2bi ; inline
: tuple-info? ( assoc -- ? )
[ MDB_TUPLE_INFO ] dip key? ;
-