factor: Rename MACRO: and MACRO: to have quot as the output in stack effects.

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

diff --git a/extra/alien/fortran/fortran.factor b/extra/alien/fortran/fortran.factor
index 6f9bae57acfbd7fce40f56d0076a90943a0cebbc..b2584b18406b6aaad10b0751a88e98c6311fbbc6 100755 (executable)
--- a/extra/alien/fortran/fortran.factor
+++ b/extra/alien/fortran/fortran.factor
@@ -101,7 +101,7 @@ CONSTANT: fortran>c-types H{
 : append-dimensions ( base-c-type type -- c-type )
     dims>> [ product 2array ] when* ;
 
-MACRO: size-case-type ( cases -- )
+MACRO: size-case-type ( cases -- quot )
     [ invalid-fortran-type ] suffix
     '[ [ size>> _ case ] [ append-dimensions ] bi ] ;
 
@@ -424,7 +424,7 @@ PRIVATE>
     [ '[ _ throw ] ]
     [ drop return library function parameters ((fortran-invoke)) ] if ;
 
-MACRO: fortran-invoke ( return library function parameters -- )
+MACRO: fortran-invoke ( return library function parameters -- quot )
     { [ 2drop nip set-fortran-abi ] [ (fortran-invoke) ] } 4 ncleave ;
 
 : parse-arglist ( parameters return -- types effect )