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

View File

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