issue #358: change line-break to add-line-break
parent
f1f985edf3
commit
f7e153c075
|
@ -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 ;
|
||||
|
|
|
@ -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> ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue