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

View File

@ -183,7 +183,7 @@ TUPLE: block < section sections ;
[ short-section? ] bi
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 -- ? )
line-limit? [ drop t ] [ call-next-method ] if ;

View File

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