summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 81d873edd..9e46e4128 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -277,9 +277,11 @@ SCM_DEFINE (scm_gc_live_object_stats, "gc-live-object-stats", 0, 0, 0,
#define FUNC_NAME s_scm_gc_live_object_stats
{
SCM tab = scm_make_hash_table (scm_from_int (57));
+ SCM alist;
+
scm_i_all_segments_statistics (tab);
- SCM alist
+ alist
= scm_internal_hash_fold (&tag_table_to_type_alist, NULL, SCM_EOL, tab);
return alist;