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

[factor.git] / extra / variants / variants.factor

diff --git a/extra/variants/variants.factor b/extra/variants/variants.factor
index e8b50ebffc63a26ed72a530e9f7839bf08621c08..48da55cd25631a09cacb657691d9ba8e06d9224b 100644 (file)
--- a/extra/variants/variants.factor
+++ b/extra/variants/variants.factor
@@ -52,7 +52,7 @@ SYNTAX: VARIANT-MEMBER:
     scan-token parse-variant-member
     define-variant-class-member ;
 
-MACRO: unboa ( class -- )
+MACRO: unboa ( class -- quot )
     <wrapper> \ boa [ ] 2sequence [undo] ;
 
 GENERIC# (match-branch) 1 ( class quot -- class quot' )
@@ -65,6 +65,6 @@ M: object (match-branch)
 : ?class ( object -- class )
     dup word? [ class-of ] unless ;
 
-MACRO: match ( branches -- )
+MACRO: match ( branches -- quot )
     [ dup callable? [ first2 (match-branch) 2array ] unless ] map
     [ \ dup \ ?class ] dip \ case [ ] 4sequence ;