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.c6
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: