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

fix exact neg check for ratio in rounding (issue #539)

Browse source
This commit is contained in:
Alex Shinn 2019-05-03 00:37:30 +08:00
parent 624b54c05c
commit 26ceb64434
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bignum.c
View file

@ -862,7 +862,7 @@ sexp sexp_ratio_round (sexp ctx, sexp a) {
r = sexp_mul(ctx, r, SEXP_TWO); r = sexp_mul(ctx, r, SEXP_TWO);
if (sexp_exact_negativep(r)) {sexp_negate(r);} if (sexp_exact_negativep(r)) {sexp_negate(r);}
if (sexp_unbox_fixnum(sexp_compare(ctx, r, sexp_ratio_denominator(a))) > 0) if (sexp_unbox_fixnum(sexp_compare(ctx, r, sexp_ratio_denominator(a))) > 0)
q = sexp_add(ctx, q, (sexp_exact_positivep(q) ? SEXP_ONE : SEXP_NEG_ONE)); q = sexp_add(ctx, q, (sexp_exact_negativep(sexp_ratio_numerator(a)) ? SEXP_NEG_ONE : SEXP_ONE));
} }
sexp_gc_release2(ctx); sexp_gc_release2(ctx);
return q; return q;

4
tests/r7rs-tests.scm
View file

@ -932,6 +932,10 @@
(test 4 (round 7/2)) (test 4 (round 7/2))
(test 7 (round 7)) (test 7 (round 7))
(test 1 (round 7/10))
(test -4 (round -7/2))
(test -7 (round -7))
(test -1 (round -7/10))
(test 1/3 (rationalize (exact .3) 1/10)) (test 1/3 (rationalize (exact .3) 1/10))
(test #i1/3 (rationalize .3 1/10)) (test #i1/3 (rationalize .3 1/10))