diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-11-29 20:24:23 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-11-29 20:24:23 +0100 |
| commit | 7a4eb5e5ece4ec456a4d0974463393199094708c (patch) | |
| tree | 3b01f484e9b66be57fa8908147b7d14864dd6637 /libguile | |
| parent | 8ac704338d5e548f9dbf6ce3b12ef68a972e099b (diff) | |
| download | guile-7a4eb5e5ece4ec456a4d0974463393199094708c.tar.gz | |
adjust_gc_frequency before gc, for more precision
* libguile/gc.c (scm_init_gc): Run the adjust_gc_frequency from the
before-gc-hook, not the after-gc-hook. More precise, this way.
Diffstat (limited to 'libguile')
| -rw-r--r-- | libguile/gc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index cc0904e70..6d420c8a6 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -989,10 +989,10 @@ scm_init_gc () after_gc_async_thunk), SCM_BOOL_F); + scm_c_hook_add (&scm_before_gc_c_hook, adjust_gc_frequency, NULL, 0); scm_c_hook_add (&scm_before_gc_c_hook, queue_after_gc_hook, NULL, 0); scm_c_hook_add (&scm_before_gc_c_hook, start_gc_timer, NULL, 0); scm_c_hook_add (&scm_after_gc_c_hook, accumulate_gc_timer, NULL, 0); - scm_c_hook_add (&scm_after_gc_c_hook, adjust_gc_frequency, NULL, 0); #ifdef HAVE_GC_SET_START_CALLBACK GC_set_start_callback (run_before_gc_c_hook); |