From 84e8041a9cb9b64b42d0d18094bb60e063885234 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 21 Aug 2012 17:51:10 -0700
Subject: [PATCH] bit-arrays: move toggle-bit to bit-arrays.private.

---
 basis/bit-arrays/bit-arrays.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/bit-arrays/bit-arrays.factor b/basis/bit-arrays/bit-arrays.factor
index 70935ebfa7..64fdbacd78 100644
--- 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