Changeset 16058 in project


Ignore:
Timestamp:
09/23/09 20:55:16 (10 years ago)
Author:
Kon Lovett
Message:

Need to fix the bignum/flonum comparisons.

Location:
release/4/numbers/trunk
Files:
5 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/numbers/trunk/numbers.scm

    r16057 r16058  
    561561       (FIX (fp> x (%fix->flo y)))
    562562       (FLO (fp> x y))
    563        ; BIG used only when # overflows integer FLO representation
    564        ; so forall X : FLO forall Y : BIG X < Y
    565        (BIG #f #;(fp> x (%big->flo y)))
     563       (BIG (fp> x (%big->flo y)))
    566564       (RAT (fp> x (%rat->flo y)))
    567565       (COMP (bad-complex/o loc y))
     
    611609       (FIX (fp< x (%fix->flo y)))
    612610       (FLO (fp< x y))
    613        ; BIG used only when # overflows integer FLO representation
    614        ; so forall X : FLO forall Y : BIG X < Y
    615        (BIG #t #;(fp< x (%big->flo y)))
     611       (BIG (fp< x (%big->flo y)))
    616612       (RAT (fp< x (%rat->flo y)))
    617613       (COMP (bad-complex/o loc y))
Note: See TracChangeset for help on using the changeset viewer.