mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(scm_m_define): Set 'name procedure property on any

Browse source 
scm_procedure_p, not just SCM_CLOSUREP.  In particular this picks up
procedures with setters as used in srfi-17.
This commit is contained in:
Kevin Ryde 2006-12-12 22:14:52 +00:00
parent af34b069b9
commit 0238dc9de2
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -1235,7 +1235,7 @@ scm_m_define (SCM expr, SCM env)
SCM tmp = value;
while (SCM_MACROP (tmp))
tmp = SCM_MACRO_CODE (tmp);
if (SCM_CLOSUREP (tmp)
if (scm_is_true (scm_procedure_p (tmp))
/* Only the first definition determines the name. */
&& scm_is_false (scm_procedure_property (tmp, scm_sym_name)))
scm_set_procedure_property_x (tmp, scm_sym_name, variable);