unless-empty-block ( block quot: ( block -- ) -- )

Vocabulary

prettyprint.sections

Inputs

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

Outputs

None

Word description

If the block has child sections, calls the quotation, otherwise does nothing.

Definition

USING: kernel ;

IN: prettyprint.sections

: unless-empty-block ( block quot: ( block -- ) -- )
    [ dup empty-block? [ drop ] ] dip if ; inline