core/math/floats/floats.factor

   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
   5
   6 M: fixnum >float fixnum>float ;
   7 M: bignum >float bignum>float ;
   8
   9 M: float >fixnum float>fixnum ;
  10 M: float >bignum float>bignum ;
  11 M: float >float ;
  12
  13 M: float hashcode* nip float>bits ;
  14 M: float equal? over float? [ float= ] [ 2drop f ] if ;
  15 M: float number= float= ;
  16
  17 M: float < float< ;
  18 M: float <= float<= ;
  19 M: float > float> ;
  20 M: float >= float>= ;
  21
  22 M: float + float+ ;
  23 M: float - float- ;
  24 M: float * float* ;
  25 M: float / float/f ;
  26 M: float /f float/f ;
  27 M: float mod float-mod ;
  28
  29 M: real abs dup 0 < [ neg ] when ;