Use the 11 tag bit pattern to denote a new type: LIT. This is a

pointer to a C static string, intended for literals. We can now
treat literal strings as light-weight objects.

1 files changed, 2 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index f7b43f7f..0ce6aa68 100644
--- a/hash.c
+++ b/hash.c
@@ -82,6 +82,8 @@ static long ll_hash(obj_t *obj)
     return NUM_MAX;
 
   switch (type(obj)) {
+  case LIT:
+    return hash_c_str(litptr(obj));
   case CONS:
     return (ll_hash(obj->c.car) + ll_hash(obj->c.cdr)) & NUM_MAX;
   case STR: