do-break ( break -- )

Vocabulary

prettyprint.sections

Inputs

break

a line-break

Outputs

None

Word description

Prints a break section as per the policy outlined in line-break.

Definition

USING: accessors kernel math namespaces prettyprint.config ;

IN: prettyprint.sections

: do-break ( break -- )
    [ ] [ type>> hard eq? ]
    [ end>> pprinter get last-newline>> - margin get 2/ > ] tri
    or [ <fresh-line ] [ drop ] if ;