factor: trim using lists

[factor.git] / extra / mongodb / tuple / state / state.factor

diff --git a/extra/mongodb/tuple/state/state.factor b/extra/mongodb/tuple/state/state.factor
index ec1b8865ab2c8be470f95872f5ae885cb34f3445..8a569d19f8225bfc567e71fbf80019abdcc3bd1d 100644 (file)
--- a/extra/mongodb/tuple/state/state.factor
+++ b/extra/mongodb/tuple/state/state.factor
@@ -1,6 +1,4 @@
-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
@@ -10,7 +8,7 @@ CONSTANT: MDB_TUPLE_INFO       "_mfd_t_info"
 PRIVATE>
 
 : <tuple-info> ( tuple -- tuple-info )
-    class V{ } clone tuck  
+    class-of [ V{ } clone ] dip over
     [ [ name>> ] dip push ]
     [ [ vocabulary>> ] dip push ] 2bi ; inline
 
@@ -22,4 +20,3 @@ PRIVATE>
 
 : tuple-info? ( assoc -- ? )
    [ MDB_TUPLE_INFO ] dip key? ;
-