math.bitwise: simplify byte-array-bit-count.

2014-04-29 22:11:42 -07:00 · 2014-04-29 22:11:42 -07:00 · 594354e145
parent febdca9639
commit 594354e145
1 changed files with 1 additions and 1 deletions
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@ -118,7 +118,7 @@ M: bignum (bit-count)
    ] if-zero ;

 : byte-array-bit-count ( byte-array -- n )
-    0 [ byte-bit-count + ] reduce ; inline
+    [ byte-bit-count ] map-sum ; inline

 PRIVATE>