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>> _ case ] [ append-dimensions ] bi ] ;