parent
abbfedc53d
commit
c8e4d9fa69
|
@ -64,7 +64,7 @@ M: ansi stream-format
|
||||||
[ background of [ color>background ] [ "" ] if* ]
|
[ background of [ color>background ] [ "" ] if* ]
|
||||||
[ font-style of [ font-styles ] [ "" ] if* ]
|
[ font-style of [ font-styles ] [ "" ] if* ]
|
||||||
tri 3append [ "\e[0m" surround ] unless-empty
|
tri 3append [ "\e[0m" surround ] unless-empty
|
||||||
] dip call-next-method ;
|
] dip stream>> stream-write ;
|
||||||
|
|
||||||
M: ansi make-span-stream
|
M: ansi make-span-stream
|
||||||
swap <style-stream> <ignore-close-stream> ;
|
swap <style-stream> <ignore-close-stream> ;
|
||||||
|
|
Loading…
Reference in New Issue