diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index ed7b01007..5557847b9 100644 --- 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)); |