summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index c7451bd3d..fd98dc882 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -811,13 +811,11 @@ scm_convert_exec_args (SCM args, int pos, const char *subr)
int num_args;
int i;
- SCM_ASSERT (SCM_NULLP (args)
- || (SCM_CONSP (args)),
- args, pos, subr);
num_args = scm_ilength (args);
+ SCM_ASSERT (num_args >= 0, args, pos, subr);
execargv = (char **)
scm_must_malloc ((num_args + 1) * sizeof (char *), subr);
- for (i = 0; SCM_NNULLP (args); args = SCM_CDR (args), ++i)
+ for (i = 0; !SCM_NULLP (args); args = SCM_CDR (args), ++i)
{
scm_sizet len;
char *dst;