Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 14:49:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Coerce flonums to bignums instead of vice versa in comparisons.

Browse source 
Need to do the same for flonums <=> ratios but the conversion is
a hack right now.
This commit is contained in:
Alex Shinn 2012-11-07 21:40:53 +09:00
parent 8ea2cc0071
commit ab42ea2cfb
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bignum.c
View file

@ -1528,10 +1528,8 @@ sexp sexp_compare (sexp ctx, sexp a, sexp b) {
r = sexp_make_fixnum(f < g ? -1 : f == g ? 0 : 1); r = sexp_make_fixnum(f < g ? -1 : f == g ? 0 : 1);
break; break;
case SEXP_NUM_FLO_BIG: case SEXP_NUM_FLO_BIG:
f = sexp_flonum_value(a); a = tmp = sexp_double_to_bignum(ctx, sexp_flonum_value(a));
g = sexp_bignum_to_double(b); /* ... FALLTHROUGH ... */
r = sexp_make_fixnum(f < g ? -1 : f == g ? 0 : 1);
break;
case SEXP_NUM_BIG_BIG: case SEXP_NUM_BIG_BIG:
r = sexp_make_fixnum(sexp_bignum_compare(a, b)); r = sexp_make_fixnum(sexp_bignum_compare(a, b));
break; break;