diff options
author | Andy Wingo <wingo@pobox.com> | 2010-04-17 14:47:47 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-04-17 15:21:02 +0200 |
commit | 90fa152c1d2cf2e57050ac0f9da7eba1449bbc26 (patch) | |
tree | 99436aaea9293fce3ab7b2434860408005f34f75 /libguile/procprop.c | |
parent | e1bdf9e2a5af4e08329509edb9d1617e7a385c03 (diff) | |
download | guile-90fa152c1d2cf2e57050ac0f9da7eba1449bbc26.tar.gz |
tweaks to procprop.c
* libguile/procprop.c (scm_procedure_property)
(scm_set_procedure_property_x): Fix up some variable naming.
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; |