diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index ff4fc7c16..0eb4b55dc 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -753,7 +753,7 @@ scm_m_define (x, env) { x = evalcar (x, env); #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); #endif arg1 = scm_sym2vcell (proc, env_top_level (env), SCM_BOOL_T); |