(pprint-tuple) ( opener class slots closer -- )

Vocabulary

prettyprint.backend

Inputs

opener	an object
class	an object
slots	an object
closer	an object

Outputs

None

Definition

USING: assocs combinators prettyprint.sections ;

IN: prettyprint.backend

: (pprint-tuple) ( opener class slots closer -- )
    <flow {
        [ pprint-word ]
        [ pprint-word ]
        [ t <inset [ pprint-slot-value ] assoc-each block> ]
        [ pprint-word ]
    } spread block> ;