diff options
-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; } |