pprint-c-object ( object content-quot pointer-quot -- )

Vocabulary

prettyprint.backend

Inputs

object	an object
content-quot	an object
pointer-quot	an object

Outputs

None

Definition

USING: kernel namespaces prettyprint.config ;

IN: prettyprint.backend

: pprint-c-object ( object content-quot pointer-quot -- )
    [ c-object-pointers? get ] 2dip
    [ nip ] [ [ drop ] prepose [ recover-pprint ] 2curry ] 2bi
    if ; inline