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

bit-arrays: move toggle-bit to bit-arrays.private.

db4
John Benediktsson 2012-08-21 17:51:10 -07:00
parent 17782f45ab
commit 84e8041a9c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/bit-arrays/bit-arrays.factor
View File

@ -40,6 +40,9 @@ TUPLE: bit-array
tri tri
] if ; inline ] if ; inline
:: toggle-bit ( ? n x -- y )
x n ? [ set-bit ] [ clear-bit ] if ; inline
PRIVATE> PRIVATE>
ERROR: bad-array-length n ; ERROR: bad-array-length n ;
@ -54,9 +57,6 @@ M: bit-array length length>> ; inline
M: bit-array nth-unsafe M: bit-array nth-unsafe
bit-index nth-unsafe swap bit? ; inline bit-index nth-unsafe swap bit? ; inline
:: toggle-bit ( ? n x -- y )
x n ? [ set-bit ] [ clear-bit ] if ; inline
M: bit-array set-nth-unsafe M: bit-array set-nth-unsafe
bit-index [ toggle-bit ] change-nth-unsafe ; inline bit-index [ toggle-bit ] change-nth-unsafe ; inline