From 619ffe18840b9a1061f719fbf0ba25590e5b7a7a Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 17 Jun 2015 08:23:34 -0700
Subject: [PATCH] persistent.vectors: bring private back (broken in
 4191882a686e90e84f0ad2bd4c7b5fa3dea7e14a).

---
 basis/persistent/vectors/vectors.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/persistent/vectors/vectors.factor b/basis/persistent/vectors/vectors.factor
index 859331cc77..b0a132249c 100644
--- 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 ] }