split-before ( section -- )

Vocabulary

prettyprint.sections

Inputs

section

an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel namespaces ;

IN: prettyprint.sections

: split-before ( section -- )
    {
        [ start-group?>> prev get [ end-group?>> and ] when* ]
        [ flow? prev get flow? not and ]
    } 1|| split-groups ;