mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* Fixed a bug in array-set! plus some minor cleanup.

Browse source
This commit is contained in:
Dirk Herrmann 2001-06-30 19:56:57 +00:00
parent 592996c9ee
commit 9a97e36281
2 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* unif.c (scm_array_set_x): The variable args does not
necessarily have to be a list. Further, got rid of a redundant
SCM_NIMP test.
2001-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de> 2001-06-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* list.c (SCM_I_CONS): Make sure the cell type is initialized * list.c (SCM_I_CONS): Make sure the cell type is initialized

6
libguile/unif.c
View file

@ -1267,7 +1267,6 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1,
{ {
long pos = 0; long pos = 0;
SCM_VALIDATE_REST_ARGUMENT (args);
SCM_ASRTGO (SCM_NIMP (v), badarg1); SCM_ASRTGO (SCM_NIMP (v), badarg1);
if (SCM_ARRAYP (v)) if (SCM_ARRAYP (v))
{ {
@ -1277,10 +1276,9 @@ SCM_DEFINE (scm_array_set_x, "array-set!", 2, 0, 1,
else else
{ {
unsigned long int length; unsigned long int length;
if (SCM_NIMP (args)) if (SCM_CONSP (args))
{ {
SCM_ASSERT (SCM_CONSP(args) && SCM_INUMP (SCM_CAR (args)), args, SCM_ASSERT (SCM_INUMP (SCM_CAR (args)), args, SCM_ARG3, FUNC_NAME);
SCM_ARG3, FUNC_NAME);
SCM_ASRTGO (SCM_NULLP (SCM_CDR (args)), wna); SCM_ASRTGO (SCM_NULLP (SCM_CDR (args)), wna);
pos = SCM_INUM (SCM_CAR (args)); pos = SCM_INUM (SCM_CAR (args));
} }