block> ( -- )
Factor handbook » Developer tools » The prettyprinter » Extending the prettyprinter » Prettyprinter sections

Prev:	<colon ( -- )
Next:	Prettyprinter section protocol

Vocabulary
prettyprint.sections

Word description
Adds the current block to its containing block.

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

Definition

USING: kernel namespaces sequences ;

IN: prettyprint.sections

: block> ( -- )
    pprinter-stack get pop
    [ [ save-end-position ] [ add-section ] bi ]
    unless-empty-block ;