steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.fortran: better name

modern-harvey2
Doug Coleman 2017-12-24 20:24:49 -08:00
parent fbeb5a7b1a
commit 0134a5fc3f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/alien/fortran/fortran.factor
View File

@ -411,7 +411,7 @@ PRIVATE>
: set-fortran-abi ( library -- ) : set-fortran-abi ( library -- )
library-fortran-abis get-global at fortran-abi set ; library-fortran-abis get-global at fortran-abi set ;
: fortran-invoke-impl ( return library function parameters -- quot ) : (fortran-invoke-impl) ( return library function parameters -- quot )
{ {
[ 2nip [<fortran-result>] ] [ 2nip [<fortran-result>] ]
[ nip nip nip [fortran-args>c-args] ] [ nip nip nip [fortran-args>c-args] ]
@ -419,13 +419,13 @@ PRIVATE>
[ 2nip [fortran-results>] ] [ 2nip [fortran-results>] ]
} 4 ncleave 4 nappend ; } 4 ncleave 4 nappend ;
:: (fortran-invoke) ( return library function parameters -- quot ) :: fortran-invoke-impl ( return library function parameters -- quot )
library library-fortran-abis get-global at dup bad-fortran-abi? library library-fortran-abis get-global at dup bad-fortran-abi?
[ '[ _ throw ] ] [ '[ _ throw ] ]
[ drop return library function parameters fortran-invoke-impl ] if ; [ drop return library function parameters (fortran-invoke-impl) ] if ;
MACRO: fortran-invoke ( return library function parameters -- quot ) MACRO: fortran-invoke ( return library function parameters -- quot )
{ [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ; { [ 2drop nip set-fortran-abi ] [ fortran-invoke-impl ] } 4 ncleave ;
: parse-arglist ( parameters return -- types effect ) : parse-arglist ( parameters return -- types effect )
[ [