size-case-type ( cases -- quot )

Vocabulary

alien.fortran.private

Inputs

cases

an object

Outputs

quot

an object

Definition

USING: accessors alien.fortran combinators kernel sequences ;

IN: alien.fortran.private

MACRO: size-case-type ( cases -- quot )
    [ invalid-fortran-type ] suffix [ [ size>> ] ] dip
    [ case ] curry compose [ [ append-dimensions ] bi ] curry ;