[fortran-return>] ( return -- quot )

Vocabulary

alien.fortran.private

Inputs

return

an object

Outputs

quot

an object

Definition

USING: combinators kernel ;

IN: alien.fortran.private

: [fortran-return>] ( return -- quot )
    parse-fortran-type {
        { [ dup not ] [ drop { } ] }
        { [ dup returns-by-value? ] [ drop { [ ] } ] }
        [ (fortran-result>) ]
    } cond ;