persistent.vectors: bring private back (broken in 4191882a686e90e84f0ad2bd4c7b5fa3dea...

diff --git a/basis/persistent/vectors/vectors.factor b/basis/persistent/vectors/vectors.factor
index 859331cc77a06c642653c70f2bff43543e2583e0..b0a132249c120f214f6a750ec82574d31054b425 100644 (file)
--- a/basis/persistent/vectors/vectors.factor
+++ b/basis/persistent/vectors/vectors.factor
@@ -21,6 +21,8 @@ TUPLE: persistent-vector
 
 M: persistent-vector length count>> ;
 
+<PRIVATE
+
 CONSTANT: node-size 32
 
 : node-mask ( m -- n ) node-size mod ; inline
@@ -156,6 +158,8 @@ M: persistent-vector new-nth ( obj i pvec -- pvec' )
         } cond
     ] dip [ >>root ] [ >>tail ] bi* ;
 
+PRIVATE>
+
 M: persistent-vector ppop ( pvec -- pvec' )
     dup count>> {
         { 0 [ empty-error ] }