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

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

diff --git a/libguile/procprop.c b/libguile/procprop.c
index ed7b010..5557847 100644 (file)
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -162,12 +162,12 @@ scm_stand_in_scm_proc(SCM proc)
   return answer;
 }
 
-SCM_DEFINE(scm_procedure_properties, "procedure-properties", 1, 0, 0, 
+SCM_DEFINE (scm_procedure_properties, "procedure-properties", 1, 0, 0, 
            (SCM proc),
 "Return @var{obj}'s property list.")
 #define FUNC_NAME s_scm_procedure_properties
 {
-  SCM_VALIDATE_PROC(1,proc);
+  SCM_VALIDATE_PROC (1,proc);
   return scm_acons (scm_sym_arity, scm_i_procedure_arity (proc),
                    SCM_PROCPROPS (SCM_CLOSUREP (proc)
                                   ? proc
@@ -175,20 +175,20 @@ SCM_DEFINE(scm_procedure_properties, "procedure-properties", 1, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE(scm_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0,
+SCM_DEFINE (scm_set_procedure_properties_x, "set-procedure-properties!", 2, 0, 0,
            (SCM proc, SCM new_val),
 "Set @var{obj}'s property list to @var{alist}.")
 #define FUNC_NAME s_scm_set_procedure_properties_x
 {
   if (!SCM_CLOSUREP (proc))
     proc = scm_stand_in_scm_proc(proc);
-  SCM_VALIDATE_CLOSURE(1,proc);
+  SCM_VALIDATE_CLOSURE (1,proc);
   SCM_SETPROCPROPS (proc, new_val);
   return SCM_UNSPECIFIED;
 }
 #undef FUNC_NAME
 
-SCM_DEFINE(scm_procedure_property, "procedure-property", 2, 0, 0,
+SCM_DEFINE (scm_procedure_property, "procedure-property", 2, 0, 0,
            (SCM p, SCM k),
 "Return the property of @var{obj} with name @var{key}.")
 #define FUNC_NAME s_scm_procedure_property
@@ -201,7 +201,7 @@ SCM_DEFINE(scm_procedure_property, "procedure-property", 2, 0, 0,
                  p, SCM_ARG1, FUNC_NAME);
       return arity;
     }
-  SCM_VALIDATE_PROC(1,p);
+  SCM_VALIDATE_PROC (1,p);
   assoc = scm_sloppy_assq (k,
                           SCM_PROCPROPS (SCM_CLOSUREP (p)
                                          ? p
@@ -210,7 +210,7 @@ SCM_DEFINE(scm_procedure_property, "procedure-property", 2, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE(scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
+SCM_DEFINE (scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
            (SCM p, SCM k, SCM v),
 "In @var{obj}'s property list, set the property named @var{key} to
 @var{value}.")
@@ -219,7 +219,7 @@ SCM_DEFINE(scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0,
   SCM assoc;
   if (!SCM_CLOSUREP (p))
     p = scm_stand_in_scm_proc(p);
-  SCM_VALIDATE_CLOSURE(1,p);
+  SCM_VALIDATE_CLOSURE (1,p);
   if (k == scm_sym_arity)
     SCM_MISC_ERROR ("arity is a read-only property", SCM_EOL);
   assoc = scm_sloppy_assq (k, SCM_PROCPROPS (p));