228 |
{ |
{ |
229 |
SCM arity, rest; |
SCM arity, rest; |
230 |
int n_args; |
int n_args; |
231 |
SCM_VALIDATE_HOOK (1,hook); |
SCM_VALIDATE_HOOK (1, hook); |
232 |
SCM_ASSERT (!SCM_FALSEP (arity = scm_i_procedure_arity (proc)), |
SCM_ASSERT (!SCM_FALSEP (arity = scm_i_procedure_arity (proc)), |
233 |
proc, SCM_ARG2, FUNC_NAME); |
proc, SCM_ARG2, FUNC_NAME); |
234 |
n_args = SCM_HOOK_ARITY (hook); |
n_args = SCM_HOOK_ARITY (hook); |
267 |
"value of this procedure is not specified.") |
"value of this procedure is not specified.") |
268 |
#define FUNC_NAME s_scm_reset_hook_x |
#define FUNC_NAME s_scm_reset_hook_x |
269 |
{ |
{ |
270 |
SCM_VALIDATE_HOOK (1,hook); |
SCM_VALIDATE_HOOK (1, hook); |
271 |
SCM_SET_HOOK_PROCEDURES (hook, SCM_EOL); |
SCM_SET_HOOK_PROCEDURES (hook, SCM_EOL); |
272 |
return SCM_UNSPECIFIED; |
return SCM_UNSPECIFIED; |
273 |
} |
} |
281 |
"last. The return value of this procedure is not specified.") |
"last. The return value of this procedure is not specified.") |
282 |
#define FUNC_NAME s_scm_run_hook |
#define FUNC_NAME s_scm_run_hook |
283 |
{ |
{ |
284 |
SCM_VALIDATE_HOOK (1,hook); |
SCM_VALIDATE_HOOK (1, hook); |
285 |
if (scm_ilength (args) != SCM_HOOK_ARITY (hook)) |
if (scm_ilength (args) != SCM_HOOK_ARITY (hook)) |
286 |
SCM_MISC_ERROR ("Hook ~S requires ~A arguments", |
SCM_MISC_ERROR ("Hook ~S requires ~A arguments", |
287 |
scm_list_2 (hook, SCM_MAKINUM (SCM_HOOK_ARITY (hook)))); |
scm_list_2 (hook, SCM_MAKINUM (SCM_HOOK_ARITY (hook)))); |