pprint-function ( word quot -- )

Vocabulary

alien.prettyprint

Inputs

word	an object
quot	an object

Outputs

None

Definition

USING: accessors effects kernel prettyprint.sections sequences ;

IN: alien.prettyprint

: pprint-function ( word quot -- )
    [ def>> first pprint-c-type ] swap [
        <block "(" text
        [ def>> fourth ] [ stack-effect in>> ] bi
        pprint-function-args ")" text block>
    ] tri ; inline