From 8ff45739c59e1150b09d251792b6c74c522439fe Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Tue, 8 May 2001 10:30:32 +0000 Subject: [PATCH] * Ooops: This patch belongs to the previous ChangeLog entry... --- libguile/hooks.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/hooks.c b/libguile/hooks.c index 88fa69d75..96a9657b3 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -247,7 +247,7 @@ SCM_DEFINE (scm_add_hook_x, "add-hook!", 2, 1, 0, SCM arity, rest; int n_args; 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); n_args = SCM_HOOK_ARITY (hook); if (SCM_INUM (SCM_CAR (arity)) > n_args