From c21608b0a0d3584e81e0b4435530fc6ef8379f70 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 1 May 2020 22:48:48 -0500
Subject: [PATCH] math.bitwise: Add an in-order bitfield word called bitfield*.

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

diff --git a/basis/math/bitwise/bitwise.factor b/basis/math/bitwise/bitwise.factor
index b5e3f3816c..be447397e6 100644
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@@ -75,6 +75,9 @@ MACRO: bitfield ( bitspec -- quot )
         [ (bitfield-quot) ] [ '[ @ _ dip bitor ] ] map-reduce
     ] if-empty ;
 
+MACRO: bitfield* ( bitspec -- quot )
+    reverse bitfield ;
+
 ! bit-count
 <PRIVATE