error-in-pprint ( obj -- )

Vocabulary

prettyprint.sections

Inputs

obj

an object

Outputs

None

Definition

USING: accessors classes sequences ;

IN: prettyprint.sections

: error-in-pprint ( obj -- )
    <flow class-of name>> "~pprint error: " "~" surround text
    block> ;