From 5f69853f7c20c13d1d49596d15eea5fc3fddda42 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 10 Dec 2020 17:10:55 -0800
Subject: [PATCH] sequences: make padding private, add docs.

---
 core/sequences/sequences-docs.factor | 2 ++
 core/sequences/sequences.factor      | 4 ++++
 2 files changed, 6 insertions(+)

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 ;
 
-- 
2.34.1