summaryrefslogtreecommitdiff
path: root/libguile/procprop.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-04-17 14:47:47 +0200
committerAndy Wingo <wingo@pobox.com>2010-04-17 15:21:02 +0200
commit90fa152c1d2cf2e57050ac0f9da7eba1449bbc26 (patch)
tree99436aaea9293fce3ab7b2434860408005f34f75 /libguile/procprop.c
parente1bdf9e2a5af4e08329509edb9d1617e7a385c03 (diff)
downloadguile-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.c12
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;