diff options
Diffstat (limited to 'libguile/procprop.c')
-rw-r--r-- | libguile/procprop.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c index 84f1bc54d..13b175869 100644 --- a/libguile/procprop.c +++ b/libguile/procprop.c @@ -138,11 +138,7 @@ SCM_DEFINE (scm_procedure_property, "procedure-property", 2, 0, 0, scm_from_bool (rest)); } else - { - SCM alist; - alist = scm_procedure_properties (proc); - return scm_assq_ref (alist, key); - } + return scm_assq_ref (scm_procedure_properties (proc), key); } #undef FUNC_NAME @@ -152,15 +148,15 @@ SCM_DEFINE (scm_set_procedure_property_x, "set-procedure-property!", 3, 0, 0, "@var{val}.") #define FUNC_NAME s_scm_set_procedure_property_x { - SCM alist; + SCM props; SCM_VALIDATE_PROC (1, proc); if (scm_is_eq (key, scm_sym_arity)) SCM_MISC_ERROR ("arity is a read-only property", SCM_EOL); - alist = scm_procedure_properties (proc); + props = scm_procedure_properties (proc); scm_i_pthread_mutex_lock (&overrides_lock); - scm_hashq_set_x (overrides, proc, scm_assq_set_x (alist, key, val)); + scm_hashq_set_x (overrides, proc, scm_assq_set_x (props, key, val)); scm_i_pthread_mutex_unlock (&overrides_lock); return SCM_UNSPECIFIED; |