advance ( section -- )

Vocabulary

prettyprint.sections

Inputs

section

a section

Outputs

None

Word description

Emits whitespace between sections.

Notes

This word should only be called from inside the with-pprint combinator.

Definition

USING: accessors combinators.short-circuit io kernel namespaces
;

IN: prettyprint.sections

: advance ( section -- )
    {
        [ start>> pprinter get last-newline>> = not ]
        [ short-section? ]
    } 1&& [ bl ] when ;