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

math.functions: duplicate on-bits to avoid circular dependency on math.bitwise.

db4
John Benediktsson 2011-09-22 12:23:16 -07:00
parent 90dbb84663
commit 820b54d0f7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/math/functions/functions.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math kernel math.constants math.private math.bits USING: math kernel math.constants math.private math.bits
math.libm combinators fry math.order sequences math.libm combinators fry math.order sequences
combinators.short-circuit macros literals math.bitwise ; combinators.short-circuit macros literals ;
IN: math.functions IN: math.functions
: >fraction ( a/b -- a b ) : >fraction ( a/b -- a b )
@ -156,6 +156,11 @@ M: real absq sq ; inline
: >=1? ( x -- ? ) : >=1? ( x -- ? )
dup complex? [ drop f ] [ 1 >= ] if ; inline 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 ) GENERIC: frexp ( x -- y exp )
M: float frexp M: float frexp