From 5a9107a19c2904c6723f8c8b05f189b93e114c9f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 3 May 2006 08:15:29 +0000 Subject: [PATCH] undo other half of accidental env.c commit svn: r2857 --- src/mzscheme/src/env.c | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c index c5d6b91232..a178ab9600 100644 --- a/src/mzscheme/src/env.c +++ b/src/mzscheme/src/env.c @@ -2258,12 +2258,7 @@ scheme_lookup_binding(Scheme_Object *find_id, Scheme_Comp_Env *env, int flags, int issame; if (frame->flags & SCHEME_CAPTURE_WITHOUT_RENAME) issame = scheme_stx_module_eq(find_id, COMPILE_DATA(frame)->const_names[i], phase); - else if (frame->flags & SCHEME_FOR_INTDEF) { - /* Comparing to uid is unreliable in case the bound - identifier has multiple renamings at the same level, so - use the general stx_bound_eq function: */ - issame = scheme_stx_bound_eq(find_id, COMPILE_DATA(frame)->const_names[i], phase); - } else { + else { if (COMPILE_DATA(frame)->const_uids) uid = COMPILE_DATA(frame)->const_uids[i]; issame = (SAME_OBJ(SCHEME_STX_VAL(find_id), SCHEME_STX_VAL(COMPILE_DATA(frame)->const_names[i]))