result?dims ( type quot -- quot )

Vocabulary

alien.fortran.private

Inputs

type	an object
quot	an object

Outputs

quot

an object

Definition

USING: accessors kernel ;

IN: alien.fortran.private

: result?dims ( type quot -- quot )
    [ dup dims>> [ drop { [ ] } ] ] dip if ; inline