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

[factor.git] / basis / combinators / random / random.factor

diff --git a/basis/combinators/random/random.factor b/basis/combinators/random/random.factor
index 5a66b878cf40de5b76b23b43e78b0da26f8a8ede..661ed3f08dbd0d8e992bc2f1bbb55cf802fb5bbb 100644 (file)
--- a/basis/combinators/random/random.factor
+++ b/basis/combinators/random/random.factor
@@ -37,7 +37,7 @@ M: bad-probabilities summary
         cond>quot
     ] [ bad-probabilities ] if ;
 
-MACRO: (casep) ( assoc -- ) (casep>quot) ;
+MACRO: (casep) ( assoc -- quot ) (casep>quot) ;
 
 : casep>quot ( assoc -- quot )
     (casep>quot) [ random-unit ] prepend ;
@@ -62,11 +62,11 @@ MACRO: (casep) ( assoc -- ) (casep>quot) ;
 
 PRIVATE>
 
-MACRO: casep ( assoc -- ) casep>quot ;
+MACRO: casep ( assoc -- quot ) casep>quot ;
 
-MACRO: casep* ( assoc -- ) direct>conditional casep>quot ;
+MACRO: casep* ( assoc -- quot ) direct>conditional casep>quot ;
 
-MACRO: call-random ( seq -- ) call-random>casep casep>quot ;
+MACRO: call-random ( seq -- quot ) call-random>casep casep>quot ;
 
-MACRO: execute-random ( seq -- )
+MACRO: execute-random ( seq -- quot )
     [ 1quotation ] map call-random>casep casep>quot ;