* *.[ch]: Whitespace changes -- added space after SCM_VALIDATE_*

[bpt/guile.git] / libguile / pairs.c

diff --git a/libguile/pairs.c b/libguile/pairs.c
index aab4188..21415b3 100644 (file)
--- a/libguile/pairs.c
+++ b/libguile/pairs.c
@@ -54,7 +54,7 @@
 /* {Pairs}
  */
 
-SCM_DEFINE(scm_cons, "cons", 2, 0, 0,
+SCM_DEFINE (scm_cons, "cons", 2, 0, 0,
            (SCM x, SCM y),
 "")
 #define FUNC_NAME s_scm_cons
@@ -99,7 +99,7 @@ SCM_DEFINE (scm_set_car_x, "set-car!", 2, 0, 0,
 "")
 #define FUNC_NAME s_scm_set_car_x
 {
-  SCM_VALIDATE_CONS(1,pair);
+  SCM_VALIDATE_CONS (1,pair);
   SCM_SETCAR (pair, value);
   return SCM_UNSPECIFIED;
 }
@@ -110,7 +110,7 @@ SCM_DEFINE (scm_set_cdr_x, "set-cdr!", 2, 0, 0,
 "")
 #define FUNC_NAME s_scm_set_cdr_x
 {
-  SCM_VALIDATE_CONS(1,pair);
+  SCM_VALIDATE_CONS (1,pair);
   SCM_SETCDR (pair, value);
   return SCM_UNSPECIFIED;
 }