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

Fixed indentation

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-01-13 08:28:52 +00:00
parent a40bd53290
commit d65010b8a2
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

32
libguile/pairs.c
View file

@ -80,38 +80,40 @@ scm_cons2 (w, x, y)
} }
SCM_PROC(s_pair_p, "pair?", 1, 0, 0, scm_pair_p); SCM_PROC (s_pair_p, "pair?", 1, 0, 0, scm_pair_p);
SCM SCM
scm_pair_p(x) scm_pair_p (x)
SCM x; SCM x;
{ {
if SCM_IMP(x) return SCM_BOOL_F; if (SCM_IMP (x))
return SCM_CONSP(x) ? SCM_BOOL_T : SCM_BOOL_F; return SCM_BOOL_F;
return SCM_CONSP (x) ? SCM_BOOL_T : SCM_BOOL_F;
} }
SCM_PROC(s_set_car_x, "set-car!", 2, 0, 0, scm_set_car_x); SCM_PROC (s_set_car_x, "set-car!", 2, 0, 0, scm_set_car_x);
SCM SCM
scm_set_car_x(pair, value) scm_set_car_x (pair, value)
SCM pair; SCM pair;
SCM value; SCM value;
{ {
SCM_ASSERT(SCM_NIMP(pair) && SCM_CONSP(pair), pair, SCM_ARG1, s_set_car_x); SCM_ASSERT (SCM_NIMP (pair) && SCM_CONSP (pair),
SCM_SETCAR (pair, value); pair, SCM_ARG1, s_set_car_x);
return value; SCM_SETCAR (pair, value);
return value;
} }
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);
SCM SCM
scm_set_cdr_x(pair, value) scm_set_cdr_x (pair, value)
SCM pair; SCM pair;
SCM value; SCM 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 value;
} }
@ -157,7 +159,7 @@ static scm_iproc cxrs[] =
void void
scm_init_pairs () scm_init_pairs ()
{ {
scm_init_iprocs(cxrs, scm_tc7_cxr); scm_init_iprocs (cxrs, scm_tc7_cxr);
#include "pairs.x" #include "pairs.x"
} }