mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* eval.c (scm_definedp): Use top_level_lookup_closure_var

Browse source 
and not top_level_lookup_thunk_var.
This commit is contained in:
Marius Vollmer 1996-11-27 23:29:29 +00:00
parent 4417e7a720
commit 0aa1e432c0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -2843,7 +2843,7 @@ scm_definedp (sym)
SCM_ASSERT (SCM_NIMP (sym) && SCM_SYMBOLP (sym), sym, SCM_ARG1, s_definedp); SCM_ASSERT (SCM_NIMP (sym) && SCM_SYMBOLP (sym), sym, SCM_ARG1, s_definedp);
vcell = scm_sym2vcell(sym, vcell = scm_sym2vcell(sym,
SCM_CDR (scm_top_level_lookup_thunk_var), SCM_CDR (scm_top_level_lookup_closure_var),
SCM_BOOL_F); SCM_BOOL_F);
return (vcell == SCM_BOOL_F || SCM_UNBNDP(SCM_CDR(vcell))) ? return (vcell == SCM_BOOL_F || SCM_UNBNDP(SCM_CDR(vcell))) ?
SCM_BOOL_F : SCM_BOOL_T; SCM_BOOL_F : SCM_BOOL_T;