From cb35010374c08932b0641cc9778ca289d5d78218 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 15 Feb 2020 09:22:41 -0800
Subject: [PATCH] io.styles: rename do-nested-style, make private.

---
 basis/io/styles/styles.factor | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/basis/io/styles/styles.factor b/basis/io/styles/styles.factor
index 71fb78cd40..31554ec9d4 100644
--- a/basis/io/styles/styles.factor
+++ b/basis/io/styles/styles.factor
@@ -63,13 +63,17 @@ INSTANCE: style-stream output-stream
 
 DEFER: inherit-style
 
-: do-nested-style ( style style-stream -- style stream )
+<PRIVATE
+
+: nested-style ( style style-stream -- style stream )
     [ style>> inherit-style ] [ stream>> ] bi ; inline
 
+PRIVATE>
+
 C: <style-stream> style-stream
 
 M: style-stream stream-format
-    do-nested-style stream-format ;
+    nested-style stream-format ;
 
 M: style-stream stream-write
     [ style>> ] [ stream>> ] bi stream-format ;
@@ -78,16 +82,16 @@ M: style-stream stream-write1
     [ 1string ] dip stream-write ;
 
 M: style-stream make-span-stream
-    do-nested-style make-span-stream ;
+    nested-style make-span-stream ;
 
 M: style-stream make-block-stream
-    do-nested-style make-block-stream ;
+    nested-style make-block-stream ;
 
 M: style-stream make-cell-stream
-    do-nested-style make-cell-stream ;
+    nested-style make-cell-stream ;
 
 M: style-stream stream-write-table
-    do-nested-style stream-write-table ;
+    nested-style stream-write-table ;
 
 M: plain-writer stream-format
     nip stream-write ;