summaryrefslogtreecommitdiff
path: root/libguile/gc-card.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r--libguile/gc-card.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c
index 85520f8e4..af2923396 100644
--- a/libguile/gc-card.c
+++ b/libguile/gc-card.c
@@ -162,6 +162,8 @@ scm_i_sweep_card (scm_t_cell *card, SCM *free_list, scm_t_heap_segment *seg)
break;
case scm_tc7_variable:
break;
+ case scm_tc7_program:
+ break;
case scm_tcs_subrs:
/* the various "subrs" (primitives) are never freed */
continue;
@@ -386,6 +388,8 @@ scm_i_tag_name (scm_t_bits tag)
return "closures";
case scm_tc7_pws:
return "pws";
+ case scm_tc7_program:
+ return "program";
case scm_tc7_wvect:
return "weak vector";
case scm_tc7_vector: