make_hook (SCM name, SCM n_args, const char *subr)
{
int n;
- SCM_ASSERT (SCM_FALSEP (name) || (SCM_NIMP (name) && SCM_SYMBOLP (name)),
+ SCM_ASSERT (SCM_FALSEP (name) || (SCM_SYMBOLP (name)),
name,
SCM_ARG1,
subr);
"")
#define FUNC_NAME s_scm_hook_p
{
- return SCM_BOOL(SCM_NIMP (x) && SCM_HOOKP (x));
+ return SCM_BOOL(SCM_HOOKP (x));
}
#undef FUNC_NAME