summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-22 01:22:04 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-03-22 01:22:04 +0000
commit9b8721aa7c2cef74ae9997a0ed3a92ab0f81c75e (patch)
treeae93ebb5375dcbf0b94de657dfac0e721f46dd76
parentb6e17c631e77e063910ac5d92d5c401bbca61ddd (diff)
downloadguile-9b8721aa7c2cef74ae9997a0ed3a92ab0f81c75e.tar.gz
* pairs.c (scm_set_car_x, scm_set_cdr_x): Return SCM_UNSPECIFIED.
-rw-r--r--libguile/pairs.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/pairs.c b/libguile/pairs.c
index e137feaba..b595bdf47 100644
--- a/libguile/pairs.c
+++ b/libguile/pairs.c
@@ -101,7 +101,7 @@ scm_set_car_x (pair, value)
SCM_ASSERT (SCM_NIMP (pair) && SCM_CONSP (pair),
pair, SCM_ARG1, s_set_car_x);
SCM_SETCAR (pair, value);
- return value;
+ return SCM_UNSPECIFIED;
}
SCM_PROC (s_set_cdr_x, "set-cdr!", 2, 0, 0, scm_set_cdr_x);
@@ -113,7 +113,7 @@ scm_set_cdr_x (pair, value)
{
SCM_ASSERT (SCM_NIMP(pair) && SCM_CONSP (pair), pair, SCM_ARG1, s_set_cdr_x);
SCM_SETCDR (pair, value);
- return value;
+ return SCM_UNSPECIFIED;
}