From 0238dc9de2b7fffa9e01b562ccfa2629d0f2a64d Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 12 Dec 2006 22:14:52 +0000
Subject: [PATCH] (scm_m_define): Set 'name procedure property on any
 scm_procedure_p, not just SCM_CLOSUREP.  In particular this picks up
 procedures with setters as used in srfi-17.

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

diff --git a/libguile/eval.c b/libguile/eval.c
index db5c00529..26d90f1f6 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -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);