diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-05-18 08:47:52 +0000 |
commit | af45e3b06accc40d2c92918d5901afb793e8b247 (patch) | |
tree | 36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/posix.c | |
parent | c8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff) | |
download | guile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz |
* Unified some rest argument checking and handling.
Diffstat (limited to 'libguile/posix.c')
-rw-r--r-- | libguile/posix.c | 6 |
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; |