diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-04-15 16:41:34 +0000 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-04-15 16:41:34 +0000 |
| commit | 0fbdbe6c840d26f3910dfdcfe4049f8769786c24 (patch) | |
| tree | 043ad37064e3768ca031cffe0b90abca87bc4ff4 | |
| parent | 66b229d56ec8f3e023a76b9ebcf8c9fed7640834 (diff) | |
| download | guile-0fbdbe6c840d26f3910dfdcfe4049f8769786c24.tar.gz | |
fix pre-GC_set_start_callback compilation
* libguile/gc.c: Move declaration of run_before_gc_hook up.
| -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); -} - |