summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-01-13 08:28:52 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-01-13 08:28:52 +0000
commitd65010b8a22cc10e9279df98c19b3b04f0adda57 (patch)
treedfd8df17ca5e6891ae4d3b7b264b2bf347279ed3
parenta40bd5329060c4865ec9d4bbdf81cdb1addc881f (diff)
downloadguile-d65010b8a22cc10e9279df98c19b3b04f0adda57.tar.gz
Fixed indentation
-rw-r--r--libguile/pairs.c32
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"
}