diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2012-03-21 15:50:28 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2012-03-21 15:50:28 -0700 |
| commit | a084df5e0f237ae0e331f2fe43f850853eec5fb6 (patch) | |
| tree | 3dde1e4b192e7b7929fb4490f179775c31e4c64b | |
| parent | 0ab41f3caba2bb60a876a400dbd206e73c844b29 (diff) | |
| download | txr-a084df5e0f237ae0e331f2fe43f850853eec5fb6.tar.gz txr-a084df5e0f237ae0e331f2fe43f850853eec5fb6.tar.bz2 txr-a084df5e0f237ae0e331f2fe43f850853eec5fb6.zip | |
* arith.c (plus, minus, mul): Removing unnecessary type checks,
which are already implied by the switch case.
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | arith.c | 7 |
2 files changed, 5 insertions, 7 deletions
@@ -1,5 +1,10 @@ 2012-03-21 Kaz Kylheku <kaz@kylheku.com> + * arith.c (plus, minus, mul): Removing unnecessary type checks, + which are already implied by the switch case. + +2012-03-21 Kaz Kylheku <kaz@kylheku.com> + * txr.1: Doc stubs for new functions floatp, integerp, float-str, int-flo and flo-int. @@ -305,7 +305,6 @@ tail: case BGNUM: { val n; - type_check(anum, BGNUM); n = make_bignum(); if (sizeof (int_ptr_t) <= sizeof (mp_digit)) { cnum b = c_num(bnum); @@ -334,8 +333,6 @@ tail: case TYPE_PAIR(BGNUM, BGNUM): { val n; - type_check(anum, BGNUM); - type_check(bnum, BGNUM); n = make_bignum(); mp_add(mp(anum), mp(bnum), mp(n)); return normalize(n); @@ -456,8 +453,6 @@ tail: case TYPE_PAIR(BGNUM, BGNUM): { val n; - type_check(anum, BGNUM); - type_check(bnum, BGNUM); n = make_bignum(); mp_sub(mp(anum), mp(bnum), mp(n)); return normalize(n); @@ -618,8 +613,6 @@ tail: case TYPE_PAIR(BGNUM, BGNUM): { val n; - type_check(anum, BGNUM); - type_check(bnum, BGNUM); n = make_bignum(); mp_mul(mp(anum), mp(bnum), mp(n)); return n; |