core: Add the shuffler words but without primitives.

[factor.git] / extra / alien / fortran / fortran.factor

diff --git a/extra/alien/fortran/fortran.factor b/extra/alien/fortran/fortran.factor
index 4f0633b5d09b08f930f1308d56c091e0c3eff326..d014bb075bd7629bdb7ca17f99451dbc9d04c339 100755 (executable)
--- a/extra/alien/fortran/fortran.factor
+++ b/extra/alien/fortran/fortran.factor
@@ -414,7 +414,7 @@ PRIVATE>
 : ((fortran-invoke)) ( return library function parameters -- quot )
     {
         [ 2nip [<fortran-result>] ]
-        [ nip nip nip [fortran-args>c-args] ]
+        [ 3nip [fortran-args>c-args] ]
         [ [fortran-invoke] ]
         [ 2nip [fortran-results>] ]
     } 4 ncleave 4 nappend ;