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

1 files changed, 2 insertions, 2 deletions

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)