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

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

flac
John Benediktsson 2020-02-14 21:28:05 -08:00 committed by Steve Ayerhart
parent 0a64c19c11
commit 24cc6d88e7
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
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 ;
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 ;