diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-13 08:28:52 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-01-13 08:28:52 +0000 |
commit | d65010b8a22cc10e9279df98c19b3b04f0adda57 (patch) | |
tree | dfd8df17ca5e6891ae4d3b7b264b2bf347279ed3 | |
parent | a40bd5329060c4865ec9d4bbdf81cdb1addc881f (diff) | |
download | guile-d65010b8a22cc10e9279df98c19b3b04f0adda57.tar.gz |
Fixed indentation
-rw-r--r-- | libguile/pairs.c | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/libguile/pairs.c b/libguile/pairs.c index ab415f2a3..afd9b2f5e 100644 --- a/libguile/pairs.c +++ b/libguile/pairs.c @@ -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_pair_p(x) +scm_pair_p (x) SCM x; { - if SCM_IMP(x) return SCM_BOOL_F; - return SCM_CONSP(x) ? SCM_BOOL_T : SCM_BOOL_F; + if (SCM_IMP (x)) + 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_set_car_x(pair, value) +scm_set_car_x (pair, value) SCM pair; SCM value; { - SCM_ASSERT(SCM_NIMP(pair) && SCM_CONSP(pair), pair, SCM_ARG1, s_set_car_x); - SCM_SETCAR (pair, value); - return value; + SCM_ASSERT (SCM_NIMP (pair) && SCM_CONSP (pair), + pair, SCM_ARG1, s_set_car_x); + 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_set_cdr_x(pair, value) +scm_set_cdr_x (pair, value) SCM pair; SCM value; { - SCM_ASSERT(SCM_NIMP(pair) && SCM_CONSP(pair), pair, SCM_ARG1, s_set_cdr_x); - SCM_SETCDR (pair, value); - return value; + SCM_ASSERT (SCM_NIMP(pair) && SCM_CONSP (pair), pair, SCM_ARG1, s_set_cdr_x); + SCM_SETCDR (pair, value); + return value; } @@ -157,7 +159,7 @@ static scm_iproc cxrs[] = void scm_init_pairs () { - scm_init_iprocs(cxrs, scm_tc7_cxr); + scm_init_iprocs (cxrs, scm_tc7_cxr); #include "pairs.x" } |