pprint-sections ( block advancer -- )

Vocabulary

prettyprint.sections

Inputs

block	a block
advancer	a quotation with stack effect ( block -- )

Outputs

None

Word description

Prints child sections of a block, ignoring any line-break sections. The advancer quotation is called between every pair of sections.

Definition

USING: accessors kernel sequences ;

IN: prettyprint.sections

: pprint-sections ( block advancer -- )
    [
        sections>> [ line-break? ] reject
        unclip-slice pprint-section
    ] dip [ [ pprint-section ] bi ] curry each ; inline