mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 12:20:26 +02:00
(scm_array_map_x): Correction to sources list check, only
need at least one source, not two. And use SCM_WRONG_NUM_ARGS() for the error.
This commit is contained in:
parent
f940eac247
commit
1885f42093
1 changed files with 2 additions and 4 deletions
|
@ -1529,10 +1529,8 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
|
|||
{
|
||||
SCM_VALIDATE_PROC (2,proc);
|
||||
|
||||
if (!(SCM_CONSP (sources) && SCM_CONSP (SCM_CDR (sources))))
|
||||
{
|
||||
SCM_MISC_ERROR ("At least one source array is required.", SCM_EOL);
|
||||
}
|
||||
if (!(SCM_CONSP (sources)))
|
||||
SCM_WRONG_NUM_ARGS ();
|
||||
|
||||
switch (SCM_TYP7 (proc))
|
||||
{
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue