indent+ ( section n -- )

Vocabulary

prettyprint.sections

Inputs

section	an object
n	an object

Outputs

None

Definition

USING: accessors kernel math namespaces ;

IN: prettyprint.sections

: indent+ ( section n -- )
    swap indent-section?
    [ pprinter get [ + ] change-indent drop ] [ drop ] if ;