summaryrefslogtreecommitdiff
path: root/libguile/ramap.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 08:47:52 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-05-18 08:47:52 +0000
commitaf45e3b06accc40d2c92918d5901afb793e8b247 (patch)
tree36558f693d2e1bdbcd89d8ff533c8852abf47435 /libguile/ramap.c
parentc8a54c4b87d561a6a4cc6464846af51f8215ef1e (diff)
downloadguile-af45e3b06accc40d2c92918d5901afb793e8b247.tar.gz
* Unified some rest argument checking and handling.
Diffstat (limited to 'libguile/ramap.c')
-rw-r--r--libguile/ramap.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/ramap.c b/libguile/ramap.c
index 500611b40..cffdd18fa 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -1520,6 +1520,7 @@ SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
#define FUNC_NAME s_scm_array_map_x
{
SCM_VALIDATE_PROC (2,proc);
+ SCM_VALIDATE_REST_ARGUMENT (lra);
switch (SCM_TYP7 (proc))
{
default:
@@ -1666,6 +1667,7 @@ SCM_DEFINE (scm_array_for_each, "array-for-each", 2, 0, 1,
#define FUNC_NAME s_scm_array_for_each
{
SCM_VALIDATE_PROC (1,proc);
+ SCM_VALIDATE_REST_ARGUMENT (lra);
scm_ramapc (rafe, proc, ra0, lra, FUNC_NAME);
return SCM_UNSPECIFIED;
}