From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 11 Dec 2020 01:10:55 +0000 (-0800)
Subject: sequences: make padding private, add docs.
X-Git-Tag: 0.99~2808
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=5f69853f7c20c13d1d49596d15eea5fc3fddda42

sequences: make padding private, add docs.
---

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index ced530971e..effc12e67f 100644
--- 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 144ae4bb9b..39904abd2a 100644
--- 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 ;