/[guile]/guile/guile-core/libguile/hooks.c
ViewVC logotype

Diff of /guile/guile-core/libguile/hooks.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by ossau, Sat Mar 16 00:27:25 2002 UTC revision 1.27 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 228  SCM_DEFINE (scm_add_hook_x, "add-hook!", Line 228  SCM_DEFINE (scm_add_hook_x, "add-hook!",
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);
# Line 267  SCM_DEFINE (scm_reset_hook_x, "reset-hoo Line 267  SCM_DEFINE (scm_reset_hook_x, "reset-hoo
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  }  }
# Line 281  SCM_DEFINE (scm_run_hook, "run-hook", 1, Line 281  SCM_DEFINE (scm_run_hook, "run-hook", 1,
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))));

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26