with-in ( obj quot -- )


Vocabulary
prettyprint

Inputs
objan object
quotan object


Outputs
None

Definition
USING: accessors io kernel prettyprint.sections
vocabs.prettyprint ;

IN: prettyprint

: with-in ( obj quot -- )
t make-pprint current-vocab>> [ pprint-in bl ] when*
do-pprint ; inline