mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

(scm_array_map_x): Correction to sources list check, only

Browse source 
need at least one source, not two.  And use SCM_WRONG_NUM_ARGS() for
the error.
This commit is contained in:
Kevin Ryde 2004-12-15 22:54:54 +00:00
parent f940eac247
commit 1885f42093
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/ramap.c
View file

@ -1529,10 +1529,8 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
{ {
SCM_VALIDATE_PROC (2,proc); SCM_VALIDATE_PROC (2,proc);
if (!(SCM_CONSP (sources) && SCM_CONSP (SCM_CDR (sources)))) if (!(SCM_CONSP (sources)))
{ SCM_WRONG_NUM_ARGS ();
SCM_MISC_ERROR ("At least one source array is required.", SCM_EOL);
}
switch (SCM_TYP7 (proc)) switch (SCM_TYP7 (proc))
{ {