From 86d31dfe7d0754b863863f6544c75097ef68fe8c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Tue, 15 May 2001 14:57:22 +0000 Subject: Merge from mvo-vcell-cleanup-1-branch. --- libguile/hooks.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/hooks.c') diff --git a/libguile/hooks.c b/libguile/hooks.c index 96a9657b3..9834474aa 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -198,7 +198,7 @@ SCM scm_create_hook (const char* name, int n_args) { SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook"); - scm_sysintern (name, hook); + scm_c_define (name, hook); scm_protect_object (hook); return hook; } -- cgit v1.2.3