diff options
Diffstat (limited to 'libguile/hashtab.c')
-rw-r--r-- | libguile/hashtab.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/hashtab.c b/libguile/hashtab.c index d9f629240..da802a5e1 100644 --- a/libguile/hashtab.c +++ b/libguile/hashtab.c @@ -551,10 +551,10 @@ scm_internal_hash_fold (SCM (*fn) (), void *closure, SCM init, SCM table) while (!SCM_NULLP (ls)) { SCM_ASSERT (SCM_CONSP (ls), - table, SCM_ARG1, s_scm_hash_fold); + table, SCM_ARG3, s_scm_hash_fold); handle = SCM_CAR (ls); SCM_ASSERT (SCM_CONSP (handle), - table, SCM_ARG1, s_scm_hash_fold); + table, SCM_ARG3, s_scm_hash_fold); result = fn (closure, SCM_CAR (handle), SCM_CDR (handle), result); ls = SCM_CDR (ls); } |