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

diff --git a/basis/bit-arrays/bit-arrays.factor b/basis/bit-arrays/bit-arrays.factor
index 70935ebfa71c15a47c39da2f34a420f3cab3e554..64fdbacd78a144d631270e9881e5d16fa8343daf 100644 (file)
--- a/basis/bit-arrays/bit-arrays.factor
+++ b/basis/bit-arrays/bit-arrays.factor
@@ -40,6 +40,9 @@ TUPLE: bit-array
         tri
     ] if ; inline
 
+:: toggle-bit ( ? n x -- y )
+    x n ? [ set-bit ] [ clear-bit ] if ; inline
+
 PRIVATE>
 
 ERROR: bad-array-length n ;
@@ -54,9 +57,6 @@ M: bit-array length length>> ; inline
 M: bit-array nth-unsafe
     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
     bit-index [ toggle-bit ] change-nth-unsafe ; inline