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

* eval.c (scm_m_define): Bugfix: Check that the object is a

Browse source 
closure before setting the procedure property!
This commit is contained in:
Mikael Djurfeldt 1997-03-09 15:29:11 +00:00
parent dfefe3a693
commit 70ad422696
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

@ -753,7 +753,7 @@ scm_m_define (x, env)
{ {
x = evalcar (x, env); x = evalcar (x, env);
#ifdef DEBUG_EXTENSIONS #ifdef DEBUG_EXTENSIONS
if (SCM_REC_PROCNAMES_P) if (SCM_REC_PROCNAMES_P && SCM_NIMP (x) && SCM_CLOSUREP (x))
scm_set_procedure_property_x (x, scm_i_name, proc); scm_set_procedure_property_x (x, scm_i_name, proc);
#endif #endif
arg1 = scm_sym2vcell (proc, env_top_level (env), SCM_BOOL_T); arg1 = scm_sym2vcell (proc, env_top_level (env), SCM_BOOL_T);