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

prettyprint.sections: Rename text tuple to text-section

db4
Doug Coleman 2012-07-20 11:49:25 -07:00
parent d979478bc4
commit 350035fe27
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/prettyprint/sections/sections.factor
View File

@ -216,16 +216,16 @@ M: block short-section ( block -- )
: <object ( obj -- ) presented associate <block> (<block) ;
! Text section
TUPLE: text < section string ;
TUPLE: text-section < section string ;
: <text> ( string style -- text )
over length 1 + \ text new-section
over length 1 + \ text-section new-section
swap >>style
swap >>string ;
M: text short-section string>> write ;
M: text-section short-section string>> write ;
M: text long-section short-section ;
M: text-section long-section short-section ;
: styled-text ( string style -- ) <text> add-section ;