From 1885f42093cb9874a8fa4f516e44b33e9ddde23f Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 15 Dec 2004 22:54:54 +0000
Subject: [PATCH] (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.

---
 libguile/ramap.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/libguile/ramap.c b/libguile/ramap.c
index 6c72783c7..81ef6f84f 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -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))
     {