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: Doc patches from Richard Kim. Pasted from MIT Scheme

Browse source 
(which is GNU GPL'd).
This commit is contained in:
Greg J. Badros 2000-02-07 04:30:17 +00:00
parent bd9e24b301
commit d7588e5481
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/pairs.c
View file

@ -56,7 +56,9 @@
SCM_DEFINE (scm_cons, "cons", 2, 0, 0, SCM_DEFINE (scm_cons, "cons", 2, 0, 0,
(SCM x, SCM y), (SCM x, SCM y),
"") "Returns a newly allocated pair whose car is @var{x} and whose cdr is\n"
"@var{y}. The pair is guaranteed to be different (in the sense of\n"
"@code{eqv?}) from every previously existing object.")
#define FUNC_NAME s_scm_cons #define FUNC_NAME s_scm_cons
{ {
register SCM z; register SCM z;
@ -85,7 +87,7 @@ scm_cons2 (SCM w, SCM x, SCM y)
SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0, SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0,
(SCM x), (SCM x),
"") "Returns @code{#t} if @var{x} is a pair; otherwise returns @code{#f}.")
#define FUNC_NAME s_scm_pair_p #define FUNC_NAME s_scm_pair_p
{ {
if (SCM_IMP (x)) if (SCM_IMP (x))
@ -96,7 +98,8 @@ SCM_DEFINE (scm_pair_p, "pair?", 1, 0, 0,
SCM_DEFINE (scm_set_car_x, "set-car!", 2, 0, 0, SCM_DEFINE (scm_set_car_x, "set-car!", 2, 0, 0,
(SCM pair, SCM value), (SCM pair, SCM value),
"") "Stores @var{value} in the car field of @var{pair}. The value returned\n"
"by @code{set-car!} is unspecified.")
#define FUNC_NAME s_scm_set_car_x #define FUNC_NAME s_scm_set_car_x
{ {
SCM_VALIDATE_CONS (1,pair); SCM_VALIDATE_CONS (1,pair);
@ -107,7 +110,8 @@ SCM_DEFINE (scm_set_car_x, "set-car!", 2, 0, 0,
SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 2, 0, 0, SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 2, 0, 0,
(SCM pair, SCM value), (SCM pair, SCM value),
"") "Stores @var{value} in the cdr field of @var{pair}. The value returned\n"
"by @code{set-cdr!} is unspecified.")
#define FUNC_NAME s_scm_set_cdr_x #define FUNC_NAME s_scm_set_cdr_x
{ {
SCM_VALIDATE_CONS (1,pair); SCM_VALIDATE_CONS (1,pair);