From 0eea157d90bbc28df5a62c6dc4b050389d952b9d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 31 May 2015 08:04:34 -0700
Subject: [PATCH] math.bitwise: bitfield should just use map-reduce.

---
 basis/math/bitwise/bitwise.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index 5ad335e7f9..3658fa5d59 100644
--- 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