summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--arith.c48
1 files 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):
{