From fb2f0af8bd14283524e5842b43461ea3fc7701ca Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 16 Nov 2009 09:26:53 -0800
Subject: 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.

---
 gc.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'gc.c')

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);
-- 
cgit v1.2.3