sequences: making head-to-index and index-to-tail private

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 29a2c214af50b7031eca4c1a1d534765c66f9039..f69d2c708f99b22ec7e552de92d7977751cec93c 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -151,12 +151,12 @@ INSTANCE: iota immutable-sequence
 : (4sequence) ( obj1 obj2 obj3 obj4 seq -- seq )
     [ 3 swap set-nth-unsafe ] keep (3sequence) ; inline
 
-PRIVATE>
-
 : head-to-index ( seq to -- zero to seq ) [ 0 ] 2dip swap ; inline
 
 : index-to-tail ( seq from -- from length seq ) swap [ length ] keep ; inline
 
+PRIVATE>
+
 : from-tail ( seq n -- seq n' ) [ dup length ] dip - ; inline
 
 : 1sequence ( obj exemplar -- seq )