diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-22 01:22:04 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-22 01:22:04 +0000 |
commit | 9b8721aa7c2cef74ae9997a0ed3a92ab0f81c75e (patch) | |
tree | ae93ebb5375dcbf0b94de657dfac0e721f46dd76 | |
parent | b6e17c631e77e063910ac5d92d5c401bbca61ddd (diff) | |
download | guile-9b8721aa7c2cef74ae9997a0ed3a92ab0f81c75e.tar.gz |
* pairs.c (scm_set_car_x, scm_set_cdr_x): Return SCM_UNSPECIFIED.
-rw-r--r-- | libguile/pairs.c | 4 |
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; } |