update some more MACRO: effects.

basis/compiler/tests/redefine13.factor

@@ -3,7 +3,7 @@ IN: compiler.tests.redefine13
 
 : breakage-word ( a b -- c ) + ;
 
-<< MACRO: breakage-macro ( a -- ) '[ _ breakage-word ] ; >>
+<< MACRO: breakage-macro ( a -- quot ) '[ _ breakage-word ] ; >>
 
 GENERIC: breakage-caller ( a -- c )
 

basis/cpu/x86/sse/sse.factor

@@ -54,7 +54,7 @@ M: float-4-rep copy-register* drop MOVAPS ;
 M: double-2-rep copy-register* drop MOVAPS ;
 M: vector-rep copy-register* drop MOVDQA ;
 
-MACRO: available-reps ( alist -- )
+MACRO: available-reps ( alist -- quot )
     ! Each SSE version adds new representations and supports
     ! all old ones
     unzip { } [ append ] accumulate rest swap suffix

basis/formatting/formatting.factor

@@ -107,7 +107,7 @@ MACRO: printf ( format-string -- quot )
         @ output-stream get [ stream-write ] curry _ napply
     ] ;
 
-MACRO: sprintf ( format-string -- result )
+MACRO: sprintf ( format-string -- quot )
     printf-quot '[
         @ _ "" nappend-as
     ] ;

basis/game/input/xinput/xinput.factor

@@ -15,7 +15,7 @@ xinput-game-input-backend game-input-backend set-global
     255 /f ; inline
 : >vibration ( float -- short )
     65535 * >fixnum 0 65535 clamp ; inline
-MACRO: map-index-compose ( seq quot -- seq )
+MACRO: map-index-compose ( seq quot -- quot' )
     '[ '[ _ execute _ ] _ compose ] map-index 1quotation ;
 
 : fill-buttons ( button-bitmap -- button-array )

basis/inverse/inverse.factor

@@ -281,7 +281,7 @@ DEFER: __
 : [matches?] ( quot -- undoes?-quot )
     [undo] dup infer [ true-out ] [ false-recover ] bi curry ;
 
-MACRO: matches? ( quot -- ? ) [matches?] ;
+MACRO: matches? ( quot -- quot' ) [matches?] ;
 
 ERROR: no-match ;
 M: no-match summary drop "Fall through in switch" ;

basis/windows/com/syntax/syntax.factor

@@ -8,7 +8,7 @@ IN: windows.com.syntax
 
 <PRIVATE
 
-MACRO: com-invoke ( n return parameters -- )
+MACRO: com-invoke ( n return parameters -- quot )
     [ 2nip length ] 3keep
     '[
         _ npick void* deref _ cell * alien-cell _ _

basis/xml/data/data.factor

@@ -169,7 +169,7 @@ M: tag like
         rot dup [ V{ } like ] when <tag>
     ] if ;
 
-MACRO: clone-slots ( class -- tuple )
+MACRO: clone-slots ( class -- quot )
     [
         "slots" word-prop
         [ name>> reader-word '[ _ execute clone ] ] map

extra/rosetta-code/probabilistic-choice/probabilistic-choice.factor

@@ -37,7 +37,7 @@ CONSTANT: data
     { "heth"    f }
 }
 
-MACRO: case-probas ( data -- case-probas )
+MACRO: case-probas ( data -- quot )
     [ first2 [ swap 1quotation 2array ] [ 1quotation ] if* ] map 1quotation ;
 
 : expected ( name data -- float )