diff --git a/opt/bignum.c b/opt/bignum.c index 11b619ad..97d8d2b8 100644 --- a/opt/bignum.c +++ b/opt/bignum.c @@ -1193,8 +1193,6 @@ sexp sexp_mul (sexp ctx, sexp a, sexp b) { #if SEXP_USE_COMPLEX #if SEXP_USE_RATIOS case SEXP_NUM_RAT_CPX: - a = tmp = sexp_make_flonum(ctx, sexp_ratio_to_double(a)); - /* ... FALLTHROUGH ... */ #endif case SEXP_NUM_FLO_CPX: case SEXP_NUM_FIX_CPX: