summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--arith.c20
1 files changed, 20 insertions, 0 deletions
diff --git a/arith.c b/arith.c
index dbbc041c..aa00a2da 100644
--- a/arith.c
+++ b/arith.c
@@ -650,6 +650,10 @@ tail:
case TYPE_PAIR(COBJ, RNG):
case TYPE_PAIR(COBJ, COBJ):
return do_binary_method(self, self, anum, bnum);
+ case TYPE_PAIR(BGNUM, COBJ):
+ case TYPE_PAIR(FLNUM, COBJ):
+ case TYPE_PAIR(RNG, COBJ):
+ return do_binary_method(self, self, bnum, anum);
default:
break;
}
@@ -818,6 +822,10 @@ tail:
case TYPE_PAIR(COBJ, RNG):
case TYPE_PAIR(COBJ, COBJ):
return do_binary_method(self, self, anum, bnum);
+ case TYPE_PAIR(BGNUM, COBJ):
+ case TYPE_PAIR(FLNUM, COBJ):
+ case TYPE_PAIR(RNG, COBJ):
+ return do_binary_method(self, inv_minus_s, bnum, anum);
default:
break;
}
@@ -1065,6 +1073,10 @@ tail:
case TYPE_PAIR(COBJ, RNG):
case TYPE_PAIR(COBJ, COBJ):
return do_binary_method(self, self, anum, bnum);
+ case TYPE_PAIR(BGNUM, COBJ):
+ case TYPE_PAIR(FLNUM, COBJ):
+ case TYPE_PAIR(RNG, COBJ):
+ return do_binary_method(self, self, bnum, anum);
default:
break;
}
@@ -1380,6 +1392,9 @@ tail:
case TYPE_PAIR(COBJ, FLNUM):
case TYPE_PAIR(COBJ, COBJ):
return do_binary_method(self, self, anum, bnum);
+ case TYPE_PAIR(BGNUM, COBJ):
+ case TYPE_PAIR(FLNUM, COBJ):
+ return do_binary_method(self, r_mod_s, bnum, anum);
}
}
invalid_ops(self, anum, bnum);
@@ -1544,8 +1559,13 @@ tail:
return rcons(floordiv(from(anum), bnum), floordiv(to(anum), bnum));
case TYPE_PAIR(COBJ, BGNUM):
case TYPE_PAIR(COBJ, FLNUM):
+ case TYPE_PAIR(COBJ, RNG):
case TYPE_PAIR(COBJ, COBJ):
return do_binary_method(self, self, anum, bnum);
+ case TYPE_PAIR(BGNUM, COBJ):
+ case TYPE_PAIR(FLNUM, COBJ):
+ case TYPE_PAIR(RNG, COBJ):
+ return do_binary_method(self, r_floor_s, bnum, anum);
}
}
invalid_ops(self, anum, bnum);