From 924ccca457fbcddeccdb07a84f5db54a6c00db1a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 8 Sep 2009 16:25:41 -0500
Subject: [PATCH] sequences: privacy please

---
 core/sequences/sequences.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 4accabb8d6..de49a339c9 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -535,9 +535,13 @@ PRIVATE>
 : last-index-from ( obj i seq -- n )
     rot [ = ] curry find-last-from drop ;
 
+<PRIVATE
+
 : (indices) ( elt i obj accum -- )
     [ swap [ = ] dip ] dip [ push ] 2curry when ; inline
 
+PRIVATE>
+
 : indices ( obj seq -- indices )
     swap V{ } clone
     [ [ (indices) ] 2curry each-index ] keep ;