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

io.styles: rename do-nested-style, make private.

flac
John Benediktsson 2020-02-15 09:22:41 -08:00 committed by Steve Ayerhart
parent 760e87140a
commit cb35010374
No known key found for this signature in database
GPG Key ID: 5BFD39C5359E967D
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -63,13 +63,17 @@ INSTANCE: style-stream output-stream
DEFER: inherit-style DEFER: inherit-style
: do-nested-style ( style style-stream -- style stream ) <PRIVATE
: nested-style ( style style-stream -- style stream )
[ style>> inherit-style ] [ stream>> ] bi ; inline [ style>> inherit-style ] [ stream>> ] bi ; inline
PRIVATE>
C: <style-stream> style-stream C: <style-stream> style-stream
M: style-stream stream-format M: style-stream stream-format
do-nested-style stream-format ; nested-style stream-format ;
M: style-stream stream-write M: style-stream stream-write
[ style>> ] [ stream>> ] bi stream-format ; [ style>> ] [ stream>> ] bi stream-format ;
@ -78,16 +82,16 @@ M: style-stream stream-write1
[ 1string ] dip stream-write ; [ 1string ] dip stream-write ;
M: style-stream make-span-stream M: style-stream make-span-stream
do-nested-style make-span-stream ; nested-style make-span-stream ;
M: style-stream make-block-stream M: style-stream make-block-stream
do-nested-style make-block-stream ; nested-style make-block-stream ;
M: style-stream make-cell-stream M: style-stream make-cell-stream
do-nested-style make-cell-stream ; nested-style make-cell-stream ;
M: style-stream stream-write-table M: style-stream stream-write-table
do-nested-style stream-write-table ; nested-style stream-write-table ;
M: plain-writer stream-format M: plain-writer stream-format
nip stream-write ; nip stream-write ;