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 ;