summaryrefslogtreecommitdiff
path: root/libguile/gc.c
diff options
context:
space:
mode:
authorMichael Livshin <mlivshin@bigfoot.com>2001-05-28 14:18:35 +0000
committerMichael Livshin <mlivshin@bigfoot.com>2001-05-28 14:18:35 +0000
commitfde504077bf4f73e3f9983de6ae8599d3fbb8895 (patch)
tree61f5da144f8c1ae4b7262afadc4c94792f41eaf8 /libguile/gc.c
parentdd85ce4758260f712d0efc806df6643aca8e3b74 (diff)
downloadguile-fde504077bf4f73e3f9983de6ae8599d3fbb8895.tar.gz
* hooks.c (scm_create_hook): deprecated.
(make_hook): deleted. (scm_make_hook): all the hook creation code is now here. * gc.c (scm_init_gc): don't call `scm_create_hook'. instead make a hook, make it permanent, and do a `scm_c_define' on it.
Diffstat (limited to 'libguile/gc.c')
-rw-r--r--libguile/gc.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 0a0f92288..48f688b93 100644
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -2840,8 +2840,8 @@ scm_init_gc ()
{
SCM after_gc_thunk;
- /* Dirk:FIXME:: scm_create_hook is strange. */
- scm_after_gc_hook = scm_create_hook ("after-gc-hook", 0);
+ scm_after_gc_hook = scm_permanent_object (scm_make_hook (SCM_INUM0));
+ scm_c_define ("after-gc-hook", scm_after_gc_hook);
after_gc_thunk = scm_c_make_subr ("%gc-thunk", scm_tc7_subr_0,
gc_async_thunk);