From 70ad422696f15a0f15d13688793c875ddc693bc6 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sun, 9 Mar 1997 15:29:11 +0000
Subject: [PATCH] * eval.c (scm_m_define): Bugfix: Check that the object is a
 closure before setting the procedure property!

---
 libguile/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);