steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Remove useless bitand from integer>bit-array; set-alien-unsigned-1 does that for us!

db4
Joe Groff 2008-07-06 19:39:53 -07:00
parent b5dc709c02
commit ee6443053b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/bit-arrays/bit-arrays.factor
View File

@ -76,7 +76,7 @@ M: bit-array byte-length length 7 + -3 shift ;
n zero? [ 0 <bit-array> ] [ n zero? [ 0 <bit-array> ] [
[let | out [ n log2 1+ <bit-array> ] i! [ 0 ] n'! [ n ] | [let | out [ n log2 1+ <bit-array> ] i! [ 0 ] n'! [ n ] |
[ n' zero? not ] [ [ 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'! n' -8 shift n'!
i 1+ i! i 1+ i!
] [ ] while ] [ ] while