summaryrefslogtreecommitdiff
path: root/libguile/hashtab.c
diff options
context:
space:
mode:
authorMichael Livshin <mlivshin@bigfoot.com>2001-05-28 12:36:41 +0000
committerMichael Livshin <mlivshin@bigfoot.com>2001-05-28 12:36:41 +0000
commitdd85ce4758260f712d0efc806df6643aca8e3b74 (patch)
treefad1618800dd61fb9ab43ffa9584a7fcb4a9b6bb /libguile/hashtab.c
parent1db81cb09afe3afec94903a4f83a5e947829a58e (diff)
downloadguile-dd85ce4758260f712d0efc806df6643aca8e3b74.tar.gz
* strop.c (s_scm_string_capitalize_x): fix docstring quoting.
* socket.c (s_scm_inet_pton): fix docstring quoting. (s_scm_inet_ntop): ditto. * num2integral.i.c (INTEGRAL2NUM): cast to fix a warning. * hashtab.c (scm_internal_hash_fold): fix argument position in SCM_ASSERT. * environments.c (s_scm_import_environment_set_imports_x): fix argument position in SCM_ASSERT. * debug.c (s_scm_make_gloc): fix SCM packing/unpacking. (s_scm_make_iloc): ditto.
Diffstat (limited to 'libguile/hashtab.c')
-rw-r--r--libguile/hashtab.c4
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);
}