make-pprint ( obj quot manifest? -- block manifest/f )


Vocabulary
prettyprint.sections

Inputs
objan object
quotan object
manifest?an object


Outputs
blockan object
manifest/fan object


Definition
USING: kernel namespaces ;

IN: prettyprint.sections

: make-pprint ( obj quot manifest? -- block manifest/f )
[
0 position set HS{ } clone pprinter-use set
V{ } clone recursion-check set
V{ } clone pprinter-stack set
[ over <object call pprinter-block ] dip
[ pprinter-manifest ] [ f ] if
] with-scope ; inline