HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dfefe3a
)
* eval.c (scm_m_define): Bugfix: Check that the object is a
author
Mikael Djurfeldt
<djurfeldt@nada.kth.se>
Sun, 9 Mar 1997 15:29:11 +0000
(15:29 +0000)
committer
Mikael Djurfeldt
<djurfeldt@nada.kth.se>
Sun, 9 Mar 1997 15:29:11 +0000
(15:29 +0000)
closure before setting the procedure property!
libguile/eval.c
patch
|
blob
|
blame
|
history
diff --git
a/libguile/eval.c
b/libguile/eval.c
index
ff4fc7c
..
0eb4b55
100644
(file)
--- 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);