diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-30 19:56:57 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-06-30 19:56:57 +0000 |
commit | 9a97e36281431311f22e40251411bf548b10c596 (patch) | |
tree | 345acf3381cced4638933ba1620cc5ab5667c38d /libguile/unif.c | |
parent | 592996c9ee5ead91117174873899d6d4069f2d9f (diff) | |
download | guile-9a97e36281431311f22e40251411bf548b10c596.tar.gz |
* Fixed a bug in array-set! plus some minor cleanup.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/libguile/unif.c b/libguile/unif.c index 6feb7e6d6..ac229538b 100644 --- a/libguile/unif.c +++ b/libguile/unif.c @@ -1267,7 +1267,6 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1, { long pos = 0; - SCM_VALIDATE_REST_ARGUMENT (args); SCM_ASRTGO (SCM_NIMP (v), badarg1); if (SCM_ARRAYP (v)) { @@ -1277,10 +1276,9 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1, else { unsigned long int length; - if (SCM_NIMP (args)) + if (SCM_CONSP (args)) { - SCM_ASSERT (SCM_CONSP(args) && SCM_INUMP (SCM_CAR (args)), args, - SCM_ARG3, FUNC_NAME); + SCM_ASSERT (SCM_INUMP (SCM_CAR (args)), args, SCM_ARG3, FUNC_NAME); SCM_ASRTGO (SCM_NULLP (SCM_CDR (args)), wna); pos = SCM_INUM (SCM_CAR (args)); } |