(fortran-invoke) ( return library function parameters -- quot )

Vocabulary

alien.fortran

Inputs

return	an object
library	an object
function	an object
parameters	an object

Outputs

quot

an object

Definition

USING: assocs kernel namespaces ;

IN: alien.fortran

:: (fortran-invoke)
    ( return library function parameters -- quot )
    library library-fortran-abis get-global at
    dup bad-fortran-abi?
    [ [ throw ] curry ] [
        drop
        return library function parameters ((fortran-invoke))
    ] if ;