pprint-struct-pointer ( struct -- ) - Factor Documentation

pprint-struct-pointer ( struct -- )

Vocabulary
classes .struct .prettyprint .private

Inputs

struct an object

Outputs
None

Definition

USING: alien classes classes.struct kernel prettyprint.backend
prettyprint.custom ;

IN: classes.struct.prettyprint.private

: pprint-struct-pointer ( struct -- )
\ S@
[ [ class-of pprint-word ] [ >c-ptr pprint* ] bi ]
pprint-prefix ;