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

fixing bug in mixed fixnum/flonum subtraction

Browse source
This commit is contained in:
Alex Shinn 2011-06-30 09:17:47 +09:00
parent 9c9271e625
commit 4c7ca3edb2
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
opt/bignum.c
View file

@ -554,7 +554,7 @@ sexp sexp_sub (sexp ctx, sexp a, sexp b) {
r = sexp_bignum_normalize(r); r = sexp_bignum_normalize(r);
break; break;
case SEXP_NUM_FLO_FIX: case SEXP_NUM_FLO_FIX:
r = sexp_make_flonum(ctx, sexp_fixnum_to_double(b)+sexp_flonum_value(a)); r = sexp_make_flonum(ctx, sexp_flonum_value(a) - sexp_fixnum_to_double(b));
break; break;
case SEXP_NUM_FLO_FLO: case SEXP_NUM_FLO_FLO:
r = sexp_fp_sub(ctx, a, b); r = sexp_fp_sub(ctx, a, b);

2
tests/r5rs-tests.scm
View file

@ -205,6 +205,8 @@
(test -3 (- 3)) (test -3 (- 3))
(test -1.0 (- 3.0 4))
(test 7 (abs -7)) (test 7 (abs -7))
(test 1 (modulo 13 4)) (test 1 (modulo 13 4))