diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-09 15:29:11 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-09 15:29:11 +0000 |
commit | 70ad422696f15a0f15d13688793c875ddc693bc6 (patch) | |
tree | 7d3feb81e876d2855fb7d9a264c78c6ba463a6ed | |
parent | dfefe3a69324f40c435a77737f022620d956177a (diff) | |
download | guile-70ad422696f15a0f15d13688793c875ddc693bc6.tar.gz |
* eval.c (scm_m_define): Bugfix: Check that the object is a
closure before setting the procedure property!
-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); |