with-extra-nesting-level ( quot -- )

Vocabulary

prettyprint.backend

Inputs

quot

an object

Outputs

None

Definition

USING: continuations kernel math namespaces prettyprint.config ;

IN: prettyprint.backend

: with-extra-nesting-level ( quot -- )
    nesting-limit [ dup [ 1 + ] [ f ] if* ] change
    [ nesting-limit set ] curry finally ; inline