From 6adabbdf2d993f3b831c8b1a20f21beb24f35c7f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 14 Feb 2020 21:28:05 -0800
Subject: [PATCH] io.styles: simplify style-stream by depending on style words.

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

diff --git a/basis/io/styles/styles.factor b/basis/io/styles/styles.factor
index 0b2a652ca3..e82c4d71a0 100644
--- a/basis/io/styles/styles.factor
+++ b/basis/io/styles/styles.factor
@@ -80,16 +80,13 @@ M: style-stream make-span-stream
     do-nested-style make-span-stream ;
 
 M: style-stream make-block-stream
-    [ do-nested-style make-block-stream ] [ style>> ] bi
-    <style-stream> ;
+    do-nested-style make-block-stream ;
 
 M: style-stream make-cell-stream
-    [ do-nested-style make-cell-stream ] [ style>> ] bi
-    <style-stream> ;
+    do-nested-style make-cell-stream ;
 
 M: style-stream stream-write-table
-    [ [ [ stream>> ] map ] map ] [ ] [ stream>> ] tri*
-    stream-write-table ;
+    do-nested-style stream-write-table ;
 
 M: plain-writer stream-format
     nip stream-write ;