io.styles: change style-stream to inherit all styles by default.

diff --git a/basis/io/styles/styles.factor b/basis/io/styles/styles.factor
index 31554ec9d480f7d9546dce5c5692417b0db42208..8373811a3a2a834f275d0decab9b898fa1161825 100644 (file)
--- a/basis/io/styles/styles.factor
+++ b/basis/io/styles/styles.factor
@@ -61,12 +61,10 @@ C: <ignore-close-stream> ignore-close-stream
 TUPLE: style-stream < filter-writer style ;
 INSTANCE: style-stream output-stream
 
-DEFER: inherit-style
-
 <PRIVATE
 
 : nested-style ( style style-stream -- style stream )
-    [ style>> inherit-style ] [ stream>> ] bi ; inline
+    [ style>> swap assoc-union ] [ stream>> ] bi ; inline
 
 PRIVATE>
 
@@ -149,18 +147,6 @@ CONSTANT: standard-table-style
         { table-border T{ rgba f 0.8 0.8 0.8 1.0 } }
     }
 
-<PRIVATE
-
-: inherit? ( format -- ? )
-    HS{
-        foreground background font-name font-size font-style
-    } in? ;
-
-PRIVATE>
-
-: inherit-style ( child parent -- child' )
-    [ drop inherit? ] assoc-filter swap assoc-union! ;
-
 ! Input history
 TUPLE: input string ;