suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

undo other half of accidental env.c commit

Browse Source 
svn: r2857
This commit is contained in:
Matthew Flatt 2006-05-03 08:15:29 +00:00
parent 9d14029926
commit 5a9107a19c
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/mzscheme/src/env.c
View File

@ -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]))