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

[factor.git] / basis / math / bitwise / bitwise.factor

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index 3658fa5d593bcce7d0d5a0a388a88812e8257169..658d3586e005c9b7cb20e33c2e21ad4b2aac8912 100644 (file)
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -70,7 +70,7 @@ M: pair (bitfield-quot) ( spec -- quot )
 
 PRIVATE>
 
-MACRO: bitfield ( bitspec -- )
+MACRO: bitfield ( bitspec -- quot )
     [ [ 0 ] ] [
         [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
     ] if-empty ;