summaryrefslogtreecommitdiff
path: root/libguile/pairs.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/pairs.c')
-rw-r--r--libguile/pairs.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/pairs.c b/libguile/pairs.c
index 764458e36..cea545236 100644
--- a/libguile/pairs.c
+++ b/libguile/pairs.c
@@ -91,7 +91,7 @@ SCM_DEFINE (scm_set_car_x, "set-car!", 2, 0, 0,
"by @code{set-car!} is unspecified.")
#define FUNC_NAME s_scm_set_car_x
{
- SCM_VALIDATE_CONS (1, pair);
+ SCM_VALIDATE_MUTABLE_PAIR (1, pair);
SCM_SETCAR (pair, value);
return SCM_UNSPECIFIED;
}
@@ -104,7 +104,7 @@ SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 2, 0, 0,
"by @code{set-cdr!} is unspecified.")
#define FUNC_NAME s_scm_set_cdr_x
{
- SCM_VALIDATE_CONS (1, pair);
+ SCM_VALIDATE_MUTABLE_PAIR (1, pair);
SCM_SETCDR (pair, value);
return SCM_UNSPECIFIED;
}