use ``tuple-slots`` instead of ``tuple>array rest``.

basis/inverse/inverse.factor

@@ -259,7 +259,7 @@ DEFER: __
 
 : empty-inverse ( class -- quot )
     deconstruct-pred
-    [ tuple>array rest [ ] any? [ fail ] when ]
+    [ tuple-slots [ ] any? [ fail ] when ]
     compose ;
 
 \ new 1 [ ?wrapped empty-inverse ] define-pop-inverse

basis/serialize/serialize.factor

@@ -93,7 +93,7 @@ M: tuple (serialize) ( obj -- )
         CHAR: T write1
         [ class-of (serialize) ]
         [ add-object ]
-        [ tuple>array rest (serialize) ]
+        [ tuple-slots (serialize) ]
         tri
     ] serialize-shared ;
 

extra/graphviz/dot/dot.factor

@@ -51,7 +51,7 @@ M: subgraph dot.
 
 : attributes. ( attrs -- )
     "[" write
-    [ class-of "slots" word-prop ] [ tuple>array rest ] bi
+    [ class-of "slots" word-prop ] [ tuple-slots ] bi
     [ [ name>> ] dip attribute, ] 2each
     "]" write ;