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

tweak fortran-invoke so that unit tests can set fortran-abi without being shouted over

db4
Joe Groff 2009-02-11 14:05:57 -06:00
parent 84008495f0
commit 94a5582edc
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -423,7 +423,6 @@ PRIVATE>
: (fortran-invoke) ( return library function parameters -- quot ) : (fortran-invoke) ( return library function parameters -- quot )
{ {
[ 2drop nip set-fortran-abi ]
[ 2nip [<fortran-result>] ] [ 2nip [<fortran-result>] ]
[ nip nip nip [fortran-args>c-args] ] [ nip nip nip [fortran-args>c-args] ]
[ [fortran-invoke] ] [ [fortran-invoke] ]
@ -431,7 +430,7 @@ PRIVATE>
} 4 ncleave 4 nappend ; } 4 ncleave 4 nappend ;
MACRO: fortran-invoke ( return library function parameters -- ) MACRO: fortran-invoke ( return library function parameters -- )
(fortran-invoke) ; { [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ;
:: define-fortran-function ( return library function parameters -- ) :: define-fortran-function ( return library function parameters -- )
function create-in dup reset-generic function create-in dup reset-generic