mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* Make the creation of bindings more straightforward.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-12 14:07:06 +00:00
parent ba3932579c
commit a3fc3be99d
4 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/hooks.c
View file

@ -200,9 +200,8 @@ 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);
scm_sysintern (name, hook);
scm_set_object_property_x (hook, symbol_name, scm_makfrom0str (name));
scm_protect_object (hook);
return hook;