1 ! Copyright (C) 2004, 2006 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel math math.private ;
4 IN: math.floats.private
6 M: fixnum >float fixnum>float ;
7 M: bignum >float bignum>float ;
9 M: float zero? dup 0.0 float= swap -0.0 float= or ;
11 M: float >fixnum float>fixnum ;
12 M: float >bignum float>bignum ;
19 M: float number= float= ;
25 M: float mod float-mod ;