args?dims ( type quot -- main-quot added-quot )

Vocabulary

alien.fortran.private

Inputs

type	an object
quot	an object

Outputs

main-quot	an object
added-quot	an object

Definition

USING: accessors kernel ;

IN: alien.fortran.private

: args?dims ( type quot -- main-quot added-quot )
    [ dup dims>> [ drop [ ] [ drop ] ] ] dip if ; inline