summaryrefslogtreecommitdiffstats
path: root/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'gc.c')
-rw-r--r--gc.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/gc.c b/gc.c
index 2615b025..cc5e9597 100644
--- a/gc.c
+++ b/gc.c
@@ -230,7 +230,6 @@ static void finalize(val obj)
case PKG:
case FUN:
case LCONS:
- case LSTR:
case ENV:
case FLNUM:
case RNG:
@@ -243,6 +242,10 @@ static void finalize(val obj)
free(obj->st.str);
obj->st.str = 0;
return;
+ case LSTR:
+ free(obj->ls.props);
+ obj->ls.props = 0;
+ return;
case VEC:
free(obj->v.vec-2);
obj->v.vec = 0;
@@ -351,7 +354,8 @@ tail_call:
mark_obj_tail(obj->lc.cdr);
case LSTR:
mark_obj(obj->ls.prefix);
- mark_obj(obj->ls.opts);
+ mark_obj(obj->ls.props->limit);
+ mark_obj(obj->ls.props->term);
mark_obj_tail(obj->ls.list);
case COBJ:
obj->co.ops->mark(obj);