named-callback-parameter-quot ( params -- quot )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

quot

an object

Definition

USING: accessors alien.c-types combinators kernel kernel.private
sequences ;

IN: stack-checker.alien

: named-callback-parameter-quot ( params -- quot )
    parameters>> [ lookup-c-type ] map
    [ [ c-type-class ] map '[ _ declare ] ]
    [ [ c-type-boxer-quot ] map deep-spread>quot ] bi append ;