diff --git a/basis/io/styles/styles.factor b/basis/io/styles/styles.factor index 31554ec9d4..8373811a3a 100644 --- a/basis/io/styles/styles.factor +++ b/basis/io/styles/styles.factor @@ -61,12 +61,10 @@ C: ignore-close-stream TUPLE: style-stream < filter-writer style ; INSTANCE: style-stream output-stream -DEFER: inherit-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 } } } - - -: inherit-style ( child parent -- child' ) - [ drop inherit? ] assoc-filter swap assoc-union! ; - ! Input history TUPLE: input string ;