From 820b54d0f7b102114dd989fac322a012c7c7e66f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 22 Sep 2011 12:23:16 -0700
Subject: [PATCH] math.functions: duplicate on-bits to avoid circular
 dependency on math.bitwise.

---
 basis/math/functions/functions.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 9a5bb2084b..b33e40862d 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: math kernel math.constants math.private math.bits
 math.libm combinators fry math.order sequences
-combinators.short-circuit macros literals math.bitwise ;
+combinators.short-circuit macros literals ;
 IN: math.functions
 
 : >fraction ( a/b -- a b )
@@ -156,6 +156,11 @@ M: real absq sq ; inline
 : >=1? ( x -- ? )
     dup complex? [ drop f ] [ 1 >= ] if ; inline
 
+<PRIVATE
+! to avoid circular dependency on math.bitwise
+: on-bits ( m -- n ) 2^ 1 - ; inline
+PRIVATE>
+
 GENERIC: frexp ( x -- y exp )
 
 M: float frexp