* arith.c (minus): Allow difference between characters.

2 files changed, 5 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index d2bc23b1..7d95ab54 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2011-12-14  Kaz Kylheku  <kaz@kylheku.com>
 
+	* arith.c (minus): Allow difference between characters.
+
+2011-12-14  Kaz Kylheku  <kaz@kylheku.com>
+
 	* arith.c (plus, minus, gt, lt, ge, le): Handle character operands.
 
 	* eval.c (eval_init): New functions interned.
diff --git a/arith.c b/arith.c
index 79fb26d0..ccc29657 100644
--- a/arith.c
+++ b/arith.c
@@ -360,6 +360,7 @@ val minus(val anum, val bnum)
 
   switch (TAG_PAIR(tag_a, tag_b)) {
   case TAG_PAIR(TAG_NUM, TAG_NUM): 
+  case TAG_PAIR(TAG_CHR, TAG_CHR): 
     {
       cnum a = c_num(anum);
       cnum b = c_num(bnum);