summaryrefslogtreecommitdiff
path: root/libguile/hooks.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-29 07:57:31 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-29 07:57:31 +0000
commitf8eaf8b9a3b9b0ad7af0570c8f8554e19a49b7c5 (patch)
treeb1632c421585309a3a4d56710bddf33027198582 /libguile/hooks.c
parent604bc76de2b8be6e236aca03c80bffa65dc05af3 (diff)
downloadguile-f8eaf8b9a3b9b0ad7af0570c8f8554e19a49b7c5.tar.gz
* Restored the old behaviour of scm_create_hook.
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r--libguile/hooks.c12
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/hooks.c b/libguile/hooks.c
index fc46c6138..862b55a96 100644
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -194,20 +194,16 @@ print_hook (SCM hook, SCM port, scm_print_state *pstate)
}
+SCM_SYMBOL (symbol_name, "name");
+
SCM
scm_create_hook (const char* name, int n_args)
{
SCM vcell = scm_sysintern0 (name);
SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook");
SCM_SETCDR (vcell, hook);
-
-#if (SCM_DEBUG_DEPRECATED == 0)
-
- scm_set_object_property_x (hook, scm_makfrom0str ("name"), scm_makfrom0str (name));
- scm_protect_object (vcell);
-
-#endif /* SCM_DEBUG_DEPRECATED == 0 */
-
+ scm_set_object_property_x (hook, symbol_name, scm_makfrom0str (name));
+ scm_protect_object (hook);
return hook;
}