with-use ( obj quot -- )

Vocabulary

prettyprint

Inputs

obj	an object
quot	an object

Outputs

None

Definition

USING: io kernel prettyprint.sections sequences
vocabs.prettyprint ;

IN: prettyprint

: with-use ( obj quot -- )
    t make-pprint (pprint-manifest
    [ pprint-manifest) ] [ [ drop nl ] unless-empty ] bi
    do-pprint ; inline