fix hanlding of some bindings for a module->namespace top level (especially interaction with packages)
svn: r13501
This commit is contained in:
parent
051e28b11b
commit
e8675d317d
|
@ -2638,7 +2638,7 @@ scheme_lookup_binding(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags,
|
|||
|
||||
/* Used out of context? */
|
||||
if (SAME_OBJ(modidx, scheme_undefined)) {
|
||||
if (!env->genv->module && SCHEME_STXP(find_id)) {
|
||||
if (SCHEME_STXP(find_id)) {
|
||||
/* Looks like lexically bound, but double-check that it's not bound via a tl_id: */
|
||||
find_global_id = scheme_tl_id_sym(env->genv, find_id, NULL, 0, NULL, NULL);
|
||||
if (!SAME_OBJ(find_global_id, SCHEME_STX_VAL(find_id)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user