do-pprint ( block -- )

Vocabulary

prettyprint.sections

Inputs

block

a block

Outputs

None

Word description

Recursively output all children of the given block. The continuation is restored and output terminates if the line length is exceeded; this test is performed in fresh-line.

Definition

USING: accessors continuations io.styles kernel namespaces ;

IN: prettyprint.sections

: do-pprint ( block -- )
    <pprinter> pprinter [
        [
            dup style>>
            [ [ short-section ] curry with-return ] with-nesting
        ] unless-empty-block
    ] with-variable ;