diff options
Diffstat (limited to 'libguile/gc-card.c')
-rw-r--r-- | libguile/gc-card.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/gc-card.c b/libguile/gc-card.c index 85520f8e4..aa4031238 100644 --- a/libguile/gc-card.c +++ b/libguile/gc-card.c @@ -43,7 +43,7 @@ #include "libguile/strings.h" #include "libguile/struct.h" #include "libguile/tags.h" -#include "libguile/unif.h" +#include "libguile/arrays.h" #include "libguile/validate.h" #include "libguile/vectors.h" #include "libguile/weaks.h" @@ -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: |