From 230bcb24bbd80058ff50e87a185e39f1425f90bf Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 22 Sep 2011 23:13:15 +0900 Subject: [PATCH] fixing (- ratio flonum) case --- opt/bignum.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/opt/bignum.c b/opt/bignum.c index 158477e3..0e4abf76 100644 --- a/opt/bignum.c +++ b/opt/bignum.c @@ -1001,7 +1001,7 @@ sexp sexp_sub (sexp ctx, sexp a, sexp b) { r = sexp_make_flonum(ctx, sexp_flonum_value(a) - sexp_ratio_to_double(b)); break; case SEXP_NUM_RAT_FLO: - r = sexp_make_flonum(ctx, sexp_ratio_to_double(b) - sexp_flonum_value(a)); + r = sexp_make_flonum(ctx, sexp_ratio_to_double(a) - sexp_flonum_value(b)); break; case SEXP_NUM_RAT_FIX: case SEXP_NUM_RAT_BIG: