diff options
author | Daniel Kraft <d@domob.eu> | 2009-08-27 19:26:04 +0200 |
---|---|---|
committer | Daniel Kraft <d@domob.eu> | 2009-08-27 19:26:04 +0200 |
commit | ff810079188b8d04224959d5b54254d3e142d6c3 (patch) | |
tree | a58a203dd1a4f151ee8730c5a8290b0c36c2a04e /libguile/gc-card.c | |
parent | 9a9f123144c179ef659252d3442117d6b774be7f (diff) | |
parent | fa316af70ff11767d9a8eb971d9e0b888152a15c (diff) | |
download | guile-ff810079188b8d04224959d5b54254d3e142d6c3.tar.gz |
Merge branch 'master' of git://git.savannah.gnu.org/guile into elisp
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: |