mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 08:50:23 +02:00
Code Activity

(scm_array_map_x): Check for at least one source argument.

Browse source
This commit is contained in:
Kevin Ryde 2004-12-15 23:01:32 +00:00
parent e120686ac0
commit e96a9fada5
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ramap.c
View file

@ -913,6 +913,12 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
{ {
SCM_VALIDATE_PROC (2, proc); SCM_VALIDATE_PROC (2, proc);
SCM_VALIDATE_REST_ARGUMENT (lra); SCM_VALIDATE_REST_ARGUMENT (lra);
/* This is done as a test on lra, rather than an extra mandatory parameter
eval could check, so that the prototype for scm_array_map_x stays as it
was in the past. scm_array_map_x isn't actually documented, but did
get a mention in the NEWS file, so is best left alone. */
if (scm_is_null (lra))
SCM_WRONG_NUM_ARGS ();
switch (SCM_TYP7 (proc)) switch (SCM_TYP7 (proc))
{ {
default: default: