diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2014-07-29 07:36:17 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2014-07-29 15:31:32 -0700 |
| commit | ec2bdf886c2970b7b0977bd014cdb7987e7c2dae (patch) | |
| tree | c41a1ab1c64c0d47d56af821f2abfd06ae07c41c | |
| parent | 7b0cc54a306486e2ca09b7863f7330f85bf6531c (diff) | |
| download | txr-ec2bdf886c2970b7b0977bd014cdb7987e7c2dae.tar.gz txr-ec2bdf886c2970b7b0977bd014cdb7987e7c2dae.tar.bz2 txr-ec2bdf886c2970b7b0977bd014cdb7987e7c2dae.zip | |
* arith.c (plus, minus, mul): Fix missing breaks
to switch statements, leading to strange error
messages when wrong types are passed in.
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | arith.c | 6 |
2 files changed, 12 insertions, 0 deletions
@@ -1,5 +1,11 @@ 2014-07-29 Kaz Kylheku <kaz@kylheku.com> + * arith.c (plus, minus, mul): Fix missing breaks + to switch statements, leading to strange error + messages when wrong types are passed in. + +2014-07-29 Kaz Kylheku <kaz@kylheku.com> + * eval.c (eval_init): Register nconc as intrinsic. * lib.c (nconcv): New function. @@ -377,6 +377,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_CHR, TAG_NUM): { wchar_t a = c_chr(anum); @@ -452,6 +453,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_NUM): switch (type(anum)) { case BGNUM: @@ -481,6 +483,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_PTR): switch (TYPE_PAIR(type(anum), type(bnum))) { case TYPE_PAIR(BGNUM, BGNUM): @@ -501,6 +504,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_CHR, TAG_NUM): { wchar_t a = c_chr(anum); @@ -617,6 +621,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_NUM): switch (type(anum)) { case BGNUM: @@ -645,6 +650,7 @@ tail: default: break; } + break; case TAG_PAIR(TAG_PTR, TAG_PTR): switch (TYPE_PAIR(type(anum), type(bnum))) { case TYPE_PAIR(BGNUM, BGNUM): |