Ignore:
Timestamp:
02/20/08 23:25:36 (12 years ago)
Author:
Kon Lovett
Message:

Save.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/mathh/trunk/flonum-extras.scm

    r8594 r8595  
    357357(define (flodd? fl)
    358358  (check-flonum 'flodd? fl)
    359   (eq? 1 (##core#inline_allocate ("C_a_i_bitwise_and" 4) (%fptrunc fl) #b1)) )
     359  (not (##core#inline "C_flonum_equalp" 0.0 (fpmod fl 2.0))) )
    360360
    361361(define (fleven? fl)
    362362  (check-flonum 'fleven? fl)
    363   (eq? 0 (##core#inline_allocate ("C_a_i_bitwise_and" 4) (%fptrunc fl) #b1)) )
     363  (##core#inline "C_flonum_equalp" 0.0 (fpmod fl 2.0)) )
    364364
    365365(define (flfinite? fl)
Note: See TracChangeset for help on using the changeset viewer.