sequences: make padding private, add docs.

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index ced530971ec12ac2fe4db444ebdde539e1a3ee83..effc12e67f217ac5bae09cd11f11ed2d1783624d 100644 (file)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -1769,7 +1769,9 @@ ARTICLE: "sequences-appending" "Appending sequences"
     3append
     3append-as
     surround
+    surround-as
     glue
+    glue-as
 }
 "Collapse a sequence unto itself:"
 { $subsections concat join }

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 144ae4bb9b7c4540148c4e2d77da178676101651..39904abd2a9e2642e8f1c4d612fda2dd77661035 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -913,12 +913,16 @@ PRIVATE>
 : join ( seq glue -- newseq )
     dup join-as ; inline
 
+<PRIVATE
+
 : padding ( ... seq n elt quot: ( ... seq1 seq2 -- ... newseq ) -- ... newseq )
     [
         [ over length [-] dup 0 = [ drop ] ] dip
         [ <repetition> ] curry
     ] dip compose if ; inline
 
+PRIVATE>
+
 : pad-head ( seq n elt -- padded )
     [ swap dup append-as ] padding ;