[<fortran-result>] ( return parameters -- quot )

Vocabulary

alien.fortran.private

Inputs

return	an object
parameters	an object

Outputs

quot

an object

Definition

USING: generalizations kernel sequences ;

IN: alien.fortran.private

: [<fortran-result>] ( return parameters -- quot )
    [ parse-fortran-type ] dip over returns-by-value?
    [ 2drop [ ] ] [
        [ (<fortran-result>) ] [ length \ ndip [ ] 3sequence ]
        bi*
    ] if ;