Changing representation of objects to allow for unboxed characters.

Now numbers and characters fit into a cell. We lose one more bit
from the range of numbers.

1 files changed, 1 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index d583862f..390d7662 100644
--- a/hash.c
+++ b/hash.c
@@ -87,7 +87,7 @@ static long ll_hash(obj_t *obj)
   case STR:
     return hash_c_str(obj->st.str);
   case CHR:
-    return obj->ch.ch + NUM_MAX / 2;
+    return c_chr(obj) + NUM_MAX / 2;
   case NUM:
     return c_num(obj) & NUM_MAX;
   case SYM: