From 819102d2a66dae05f251871d032320167d48b29e Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 11 Dec 2011 10:30:24 -0800 Subject: Whitespace. --- arith.c | 48 ++++++++++++++++++++++++------------------------ 1 file changed, 24 insertions(+), 24 deletions(-) diff --git a/arith.c b/arith.c index 5c59af23..5ecb47e8 100644 --- a/arith.c +++ b/arith.c @@ -290,18 +290,18 @@ val plus(val anum, val bnum) } case TAG_PAIR(TAG_PTR, TAG_NUM): { - val n; - type_check(anum, BGNUM); - n = make_bignum(); - if (sizeof (int_ptr_t) <= sizeof (mp_digit)) { - mp_add_d(mp(anum), c_num(bnum), mp(n)); - } else { - mp_int tmp; - mp_init(&tmp); - mp_set_intptr(&tmp, c_num(bnum)); - mp_add(mp(anum), &tmp, mp(n)); - } - return normalize(n); + val n; + type_check(anum, BGNUM); + n = make_bignum(); + if (sizeof (int_ptr_t) <= sizeof (mp_digit)) { + mp_add_d(mp(anum), c_num(bnum), mp(n)); + } else { + mp_int tmp; + mp_init(&tmp); + mp_set_intptr(&tmp, c_num(bnum)); + mp_add(mp(anum), &tmp, mp(n)); + } + return normalize(n); } case TAG_PAIR(TAG_PTR, TAG_PTR): { @@ -351,18 +351,18 @@ val minus(val anum, val bnum) } case TAG_PAIR(TAG_PTR, TAG_NUM): { - val n; - type_check(anum, BGNUM); - n = make_bignum(); - if (sizeof (int_ptr_t) <= sizeof (mp_digit)) { - mp_sub_d(mp(anum), c_num(bnum), mp(n)); - } else { - mp_int tmp; - mp_init(&tmp); - mp_set_intptr(&tmp, c_num(bnum)); - mp_sub(mp(anum), &tmp, mp(n)); - } - return normalize(n); + val n; + type_check(anum, BGNUM); + n = make_bignum(); + if (sizeof (int_ptr_t) <= sizeof (mp_digit)) { + mp_sub_d(mp(anum), c_num(bnum), mp(n)); + } else { + mp_int tmp; + mp_init(&tmp); + mp_set_intptr(&tmp, c_num(bnum)); + mp_sub(mp(anum), &tmp, mp(n)); + } + return normalize(n); } case TAG_PAIR(TAG_PTR, TAG_PTR): { -- cgit v1.2.3