* arith.c (plus): Fixed broken (+ fixnum char) case.

2 files changed, 6 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index ff689243..fa75afb6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2012-04-24  Kaz Kylheku  <kaz@kylheku.com>
+
+	* arith.c (plus): Fixed broken (+ fixnum char) case.
+
 2012-04-20  Kaz Kylheku  <kaz@kylheku.com>
 
 	Fixes for configuring and building in a separate directory.
diff --git a/arith.c b/arith.c
index 1d784a6e..5b57faa1 100644
--- a/arith.c
+++ b/arith.c
@@ -372,8 +372,8 @@ tail:
     }
   case TAG_PAIR(TAG_NUM, TAG_CHR):
     {
-      cnum a = c_chr(anum);
-      wchar_t b = c_num(bnum);
+      cnum a = c_num(anum);
+      wchar_t b = c_chr(bnum);
       cnum sum = a + b;
 
       if (sum < 0 || sum > 0x10FFFF)