From 2d5abf90c05d37608ca41d0c3457c1159061dd91 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 14 Dec 2011 11:05:53 -0800 Subject: * arith.c (minus): Allow difference between characters. --- ChangeLog | 4 ++++ arith.c | 1 + 2 files changed, 5 insertions(+) diff --git a/ChangeLog b/ChangeLog index d2bc23b1..7d95ab54 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2011-12-14 Kaz Kylheku + + * arith.c (minus): Allow difference between characters. + 2011-12-14 Kaz Kylheku * arith.c (plus, minus, gt, lt, ge, le): Handle character operands. 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); -- cgit v1.2.3