math.bitwise: bitfield should just use map-reduce.

2015-05-31 08:04:34 -07:00 · 2015-05-31 08:04:34 -07:00 · 0eea157d90
parent b1ac83c908
commit 0eea157d90
1 changed files with 1 additions and 2 deletions
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@ -72,8 +72,7 @@ PRIVATE>

 MACRO: bitfield ( bitspec -- )
    [ [ 0 ] ] [
-        [ (bitfield-quot) ] map unclip
-        [ '[ @ _ dip bitor ] ] reduce
+        [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
    ] if-empty ;

 ! bit-count