remove 1-, 1+, use iota somewhere

2009-05-05 23:32:23 -05:00 · 2009-05-05 23:32:23 -05:00 · c2fe62f7d6
parent 2184749f48
commit c2fe62f7d6
8 changed files with 22 additions and 22 deletions
--- a/basis/math/bitwise/bitwise.factor
+++ b/basis/math/bitwise/bitwise.factor
@ -64,7 +64,7 @@ DEFER: byte-bit-count
 <<

 \ byte-bit-count
-256 [
+256 iota [
    8 <bits> 0 [ [ 1 + ] when ] reduce
 ] B{ } map-as '[ HEX: ff bitand _ nth-unsafe ]
 (( byte -- table )) define-declared