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

remove 1-, 1+, use iota somewhere

db4
Doug Coleman 2009-05-05 23:32:23 -05:00
parent ffbd19faba
commit d168f76ab0
8 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/bitwise/bitwise.factor
View File

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