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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-02-10 16:52:40 -06:00
parent 9060905983 77ee6abe27
commit 561a3b74b1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/alien/fortran/fortran.factor
View File

@ -418,8 +418,12 @@ PRIVATE>
: RECORD: scan in get parse-definition define-fortran-record ; parsing
: set-fortran-abi ( library -- )
library-fortran-abis get-global at fortran-abi set ;
: (fortran-invoke) ( return library function parameters -- quot )
{
[ 2drop nip set-fortran-abi ]
[ 2nip [<fortran-result>] ]
[ nip nip nip [fortran-args>c-args] ]
[ [fortran-invoke] ]
@ -445,5 +449,5 @@ MACRO: fortran-invoke ( return library function parameters -- )
: LIBRARY:
scan
[ "c-library" set ]
[ library-fortran-abis get-global at fortran-abi set ] bi ; parsing
[ set-fortran-abi ] bi ; parsing