mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* Ooops: This patch belongs to the previous ChangeLog entry...

Browse source
This commit is contained in:
Dirk Herrmann 2001-05-08 10:30:32 +00:00
parent 56e55ac7cf
commit 8ff45739c5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/hooks.c
View file

@ -247,7 +247,7 @@ SCM_DEFINE (scm_add_hook_x, "add-hook!", 2, 1, 0,
SCM arity, rest; SCM arity, rest;
int n_args; int n_args;
SCM_VALIDATE_HOOK (1,hook); SCM_VALIDATE_HOOK (1,hook);
SCM_ASSERT (SCM_NFALSEP (arity = scm_i_procedure_arity (proc)), SCM_ASSERT (!SCM_FALSEP (arity = scm_i_procedure_arity (proc)),
proc, SCM_ARG2, FUNC_NAME); proc, SCM_ARG2, FUNC_NAME);
n_args = SCM_HOOK_ARITY (hook); n_args = SCM_HOOK_ARITY (hook);
if (SCM_INUM (SCM_CAR (arity)) > n_args if (SCM_INUM (SCM_CAR (arity)) > n_args