From ee6443053bbdac17785f6c074a5de446365cd3bf Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sun, 6 Jul 2008 19:39:53 -0700
Subject: [PATCH] Remove useless bitand from integer>bit-array;
set-alien-unsigned-1 does that for us!
---
extra/bit-arrays/bit-arrays.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/bit-arrays/bit-arrays.factor b/extra/bit-arrays/bit-arrays.factor
index 3d699a2623..4e6f7428b0 100755
--- a/extra/bit-arrays/bit-arrays.factor
+++ b/extra/bit-arrays/bit-arrays.factor
@@ -76,7 +76,7 @@ M: bit-array byte-length length 7 + -3 shift ;
n zero? [ 0 <bit-array> ] [
[let | out [ n log2 1+ <bit-array> ] i! [ 0 ] n'! [ n ] |
[ n' zero? not ] [
- n' out underlying>> i 255 bitand set-alien-unsigned-1
+ n' out underlying>> i set-alien-unsigned-1
n' -8 shift n'!
i 1+ i!
] [ ] while