stack-shape ( params -- in out )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

in	an object
out	an object

Definition

USING: accessors alien.c-types kernel math sequences ;

IN: stack-checker.alien

: stack-shape ( params -- in out )
    [
        [ parameters>> length ] [ alien-indirect-params? 1 0 ? ]
        bi +
    ] [ return>> void? 0 1 ? ] bi ;