<inset> ( narrow? -- block )

Vocabulary

prettyprint.sections

Inputs

narrow?

an object

Outputs

block

an object

Definition

USING: accessors kernel ;

IN: prettyprint.sections

: <inset> ( narrow? -- block )
    inset new-block 2 >>overhang swap >>narrow? ;