pprint-struct ( struct -- )

Vocabulary

classes.struct.prettyprint.private

Inputs

struct

an object

Outputs

None

Definition

USING: accessors assocs classes classes.struct kernel
prettyprint.backend ;

IN: classes.struct.prettyprint.private

: pprint-struct ( struct -- )
    [
        [ \ S{ ] dip
        [ class-of ]
        [ struct>assoc [ [ name>> ] dip ] assoc-map ] bi
        \ } (pprint-tuple)
    ] ?pprint-tuple ;