pprint-struct ( struct -- ) - Factor Documentation

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 ;