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

* evalext.c (scm_definedp): Have to work before module system is

Browse source 
booted.
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:43:08 +00:00
parent 37607b5a7b
commit 238d517c09
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/evalext.c
View file

@ -79,7 +79,9 @@ SCM_DEFINE (scm_definedp, "defined?", 1, 1, 0,
if (SCM_UNBNDP (env)) if (SCM_UNBNDP (env))
vcell = scm_sym2vcell(sym, vcell = scm_sym2vcell(sym,
SCM_TOP_LEVEL_LOOKUP_CLOSURE, scm_module_system_booted_p
? SCM_TOP_LEVEL_LOOKUP_CLOSURE
: SCM_EOL,
SCM_BOOL_F); SCM_BOOL_F);
else else
{ {