diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 4 |
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: |