summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c13
1 files changed, 7 insertions, 6 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 341af6ff2..7d2724c5f 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -198,6 +198,13 @@ scm_t_c_hook scm_after_sweep_c_hook;
scm_t_c_hook scm_after_gc_c_hook;
+static void
+run_before_gc_c_hook (void)
+{
+ scm_c_hook_run (&scm_before_gc_c_hook, NULL);
+}
+
+
/* GC Statistics Keeping
*/
unsigned long scm_gc_ports_collected = 0;
@@ -550,12 +557,6 @@ scm_gc_unregister_roots (SCM *b, unsigned long n)
scm_gc_unregister_root (p);
}
-static void
-run_before_gc_c_hook (void)
-{
- scm_c_hook_run (&scm_before_gc_c_hook, NULL);
-}
-