summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
authorLudovic Courtes <ludovic.courtes@laas.fr>2006-03-21 22:16:33 +0000
committerLudovic Courtès <ludo@gnu.org>2008-09-05 00:45:58 +0200
commit26224b3f5d795e523e921ec32ffec424893ea035 (patch)
treed5c47fc98334b4c068610b66435cdce0788f4268 /libguile/struct.c
parent5695ccd43b051caf99f1ca94f00f7231c1466439 (diff)
downloadguile-26224b3f5d795e523e921ec32ffec424893ea035.tar.gz
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
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c7
1 files changed, 7 insertions, 0 deletions
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,