mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* pairs.c (scm_set_car_x, scm_set_cdr_x): Return SCM_UNSPECIFIED.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-03-22 01:22:04 +00:00
parent b6e17c631e
commit 9b8721aa7c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/pairs.c
View file

@ -101,7 +101,7 @@ scm_set_car_x (pair, value)
SCM_ASSERT (SCM_NIMP (pair) && SCM_CONSP (pair), SCM_ASSERT (SCM_NIMP (pair) && SCM_CONSP (pair),
pair, SCM_ARG1, s_set_car_x); pair, SCM_ARG1, s_set_car_x);
SCM_SETCAR (pair, value); SCM_SETCAR (pair, value);
return value; return SCM_UNSPECIFIED;
} }
SCM_PROC (s_set_cdr_x, "set-cdr!", 2, 0, 0, scm_set_cdr_x); 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_ASSERT (SCM_NIMP(pair) && SCM_CONSP (pair), pair, SCM_ARG1, s_set_cdr_x);
SCM_SETCDR (pair, value); SCM_SETCDR (pair, value);
return value; return SCM_UNSPECIFIED;
} }