diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-29 07:57:31 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-29 07:57:31 +0000 |
commit | f8eaf8b9a3b9b0ad7af0570c8f8554e19a49b7c5 (patch) | |
tree | b1632c421585309a3a4d56710bddf33027198582 /libguile/hooks.c | |
parent | 604bc76de2b8be6e236aca03c80bffa65dc05af3 (diff) | |
download | guile-f8eaf8b9a3b9b0ad7af0570c8f8554e19a49b7c5.tar.gz |
* Restored the old behaviour of scm_create_hook.
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r-- | libguile/hooks.c | 12 |
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; } |