From dd85ce4758260f712d0efc806df6643aca8e3b74 Mon Sep 17 00:00:00 2001 From: Michael Livshin Date: Mon, 28 May 2001 12:36:41 +0000 Subject: * 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. --- libguile/environments.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/environments.c') diff --git a/libguile/environments.c b/libguile/environments.c index aad811d32..eecf4fe3f 100644 --- a/libguile/environments.c +++ b/libguile/environments.c @@ -1907,9 +1907,9 @@ SCM_DEFINE (scm_import_environment_set_imports_x, "import-environment-set-import for (l = imports; SCM_CONSP (l); l = SCM_CDR (l)) { SCM obj = SCM_CAR (l); - SCM_ASSERT (SCM_ENVIRONMENT_P (obj), imports, SCM_ARG1, FUNC_NAME); + SCM_ASSERT (SCM_ENVIRONMENT_P (obj), imports, SCM_ARG2, FUNC_NAME); } - SCM_ASSERT (SCM_NULLP (l), imports, SCM_ARG1, FUNC_NAME); + SCM_ASSERT (SCM_NULLP (l), imports, SCM_ARG2, FUNC_NAME); for (l = body->import_observers; !SCM_NULLP (l); l = SCM_CDR (l)) { -- cgit v1.2.3