summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-30 19:56:57 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-06-30 19:56:57 +0000
commit9a97e36281431311f22e40251411bf548b10c596 (patch)
tree345acf3381cced4638933ba1620cc5ab5667c38d /libguile/unif.c
parent592996c9ee5ead91117174873899d6d4069f2d9f (diff)
downloadguile-9a97e36281431311f22e40251411bf548b10c596.tar.gz
* Fixed a bug in array-set! plus some minor cleanup.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c6
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));
}