From 594354e145de10321bfbd8c7adc9bbfb7b8e659c Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 29 Apr 2014 22:11:42 -0700 Subject: [PATCH] math.bitwise: simplify byte-array-bit-count. --- basis/math/bitwise/bitwise.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor index 810133a958..93765116df 100644 --- 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>