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

issue #358: change line-break to add-line-break

db4
Doug Coleman 2012-06-21 00:21:30 -07:00
parent f1f985edf3
commit f7e153c075
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,7 +183,7 @@ TUPLE: block < section sections ;
[ short-section? ] bi [ short-section? ] bi
and [ bl ] when ; and [ bl ] when ;
: line-break ( type -- ) [ <line-break> add-section ] when* ; : add-line-break ( type -- ) [ <line-break> add-section ] when* ;
M: block section-fits? ( section -- ? ) M: block section-fits? ( section -- ? )
line-limit? [ drop t ] [ call-next-method ] if ; line-limit? [ drop t ] [ call-next-method ] if ;

2
basis/see/see.factor
View File

@ -139,7 +139,7 @@ M: mixin-class see-class*
<block \ MIXIN: pprint-word <block \ MIXIN: pprint-word
dup pprint-word <block dup pprint-word <block
dup members [ dup members [
hard line-break hard add-line-break
\ INSTANCE: pprint-word pprint-word pprint-word \ INSTANCE: pprint-word pprint-word pprint-word
] with each block> block> ; ] with each block> block> ;