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

undo half of accidental env.c commit

Browse Source 
svn: r2854
This commit is contained in:
Matthew Flatt 2006-05-03 03:16:03 +00:00
parent 06f7b8603b
commit 6e9985ae28
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

@ -3578,7 +3578,6 @@ local_get_shadower(int argc, Scheme_Object *argv[])
break;
for (i = COMPILE_DATA(frame)->num_const; i--; ) {
printf("here %s\n", SCHEME_SYM_VAL(SCHEME_STX_SYM(sym)));
if (!(frame->flags & SCHEME_CAPTURE_WITHOUT_RENAME)) {
if (SAME_OBJ(SCHEME_STX_VAL(sym),
SCHEME_STX_VAL(COMPILE_DATA(frame)->const_names[i]))) {
@ -3587,11 +3586,7 @@ local_get_shadower(int argc, Scheme_Object *argv[])
if (scheme_equal(env_marks, sym_marks)) {
sym = esym;
if (COMPILE_DATA(frame)->const_uids) {
if (frame->flags & SCHEME_FOR_INTDEF) {
return esym;
} else {
uid = COMPILE_DATA(frame)->const_uids[i];
}
uid = COMPILE_DATA(frame)->const_uids[i];
} else
uid = frame->uid;
break;