From 26224b3f5d795e523e921ec32ffec424893ea035 Mon Sep 17 00:00:00 2001 From: Ludovic Courtes Date: Tue, 21 Mar 2006 22:16:33 +0000 Subject: Merge from lcourtes@laas.fr--2005-mobile Patches applied: * lcourtes@laas.fr--2005-mobile/guile-core--boehm-gc--1.9 (base, patch 1) - tag of lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--base-0 - Initial hack for Boehm's GC support: nothing works. git-archimport-id: lcourtes@laas.fr--2005-libre/guile-core--boehm-gc--1.9--patch-1 --- libguile/struct.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index de8667d45..ab79e6d9b 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -350,11 +350,17 @@ scm_struct_gc_init (void *dummy1 SCM_UNUSED, return 0; } + +/* During collection, this accumulates structures which are to be freed. + */ +SCM scm_i_structs_to_free; + static void * scm_free_structs (void *dummy1 SCM_UNUSED, void *dummy2 SCM_UNUSED, void *dummy3 SCM_UNUSED) { +#if 0 SCM newchain = scm_i_structs_to_free; do { @@ -393,6 +399,7 @@ scm_free_structs (void *dummy1 SCM_UNUSED, } while (!scm_is_null (newchain)); return 0; +#endif } SCM_DEFINE (scm_make_struct, "make-struct", 2, 0, 1, -- cgit v1.2.3