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

diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index 5f6a8bac2b9605f38d55887828e98f2fd783d726..35399c0132d80d037abd854bda34b1f4ce0f1607 100644 (file)
--- a/basis/inverse/inverse.factor
+++ b/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

diff --git a/basis/serialize/serialize.factor b/basis/serialize/serialize.factor
index add35b21f62d6f1fe46c5d0461cd3ec2cf8e2df7..0b7c4df97a231c1af1cc44438ee2c22e9fdf6b04 100644 (file)
--- a/basis/serialize/serialize.factor
+++ b/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 ;
 

diff --git a/extra/graphviz/dot/dot.factor b/extra/graphviz/dot/dot.factor
index 2f27d58195baba3bce9c6456b43505f5d566f1b9..105caf327e84ec0bb8d4d06448bd35e19bc024eb 100644 (file)
--- a/extra/graphviz/dot/dot.factor
+++ b/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 ;