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/gc.c b/gc.c
index 212a8946..850fab3f 100644
--- a/gc.c
+++ b/gc.c
@@ -158,6 +158,7 @@ static void finalize(obj_t *obj)
     return;
   case CHR:
   case NUM:
+  case LIT:
   case SYM:
   case FUN:
     return;
@@ -211,6 +212,7 @@ tail_call:
     mark_obj_tail(obj->st.len);
   case CHR:
   case NUM:
+  case LIT:
     return;
   case SYM:
     mark_obj(obj->s.name);