From b9100e507764c45c0a5a01bf2e20a708a7775c3b Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Wed, 3 Jun 2009 21:21:51 -0500
Subject: [PATCH] add a word to make a sequence from a byte-array by taking n
 bits at a time

---
 basis/bitstreams/bitstreams.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/bitstreams/bitstreams.factor b/basis/bitstreams/bitstreams.factor
index cb6a753735..4718f137e4 100644
--- a/basis/bitstreams/bitstreams.factor
+++ b/basis/bitstreams/bitstreams.factor
@@ -158,3 +158,9 @@ M: msb0-bit-reader peek ( n bs -- bits ) \ be> \ subseq>bits-be (peek) ;
         writer bytes>> swap push
     ] unless
     writer bytes>> ;
+
+:: byte-array-n>seq ( byte-array n -- seq )
+    byte-array length 8 * n / iota
+    byte-array <msb0-bit-reader> '[
+        drop n _ read
+    ] { } map-as ;