summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 08:47:52 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 08:47:52 +0000
commitaf45e3b06accc40d2c92918d5901afb793e8b247 (patch)
tree36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/posix.c
parentc8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff)
downloadguile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz
* Unified some rest argument checking and handling.
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;