diff options
Diffstat (limited to 'libguile/gc.c')
-rw-r--r-- | libguile/gc.c | 13 |
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); -} - |