steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.styles: simplify style-stream by depending on style words.

master
John Benediktsson 2020-02-14 21:28:05 -08:00
parent 3b08633604
commit 6adabbdf2d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/io/styles/styles.factor
View File

@ -80,16 +80,13 @@ M: style-stream make-span-stream
do-nested-style make-span-stream ; do-nested-style make-span-stream ;
M: style-stream make-block-stream M: style-stream make-block-stream
[ do-nested-style make-block-stream ] [ style>> ] bi do-nested-style make-block-stream ;
<style-stream> ;
M: style-stream make-cell-stream M: style-stream make-cell-stream
[ do-nested-style make-cell-stream ] [ style>> ] bi do-nested-style make-cell-stream ;
<style-stream> ;
M: style-stream stream-write-table M: style-stream stream-write-table
[ [ [ stream>> ] map ] map ] [ ] [ stream>> ] tri* do-nested-style stream-write-table ;
stream-write-table ;
M: plain-writer stream-format M: plain-writer stream-format
nip stream-write ; nip stream-write ;