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

fix bug that affects `free-identifier=?'

Browse Source 
This bug is in the "amazing that it lurked for years" category,
as well as the "stupid use of C preprocessor" category.
This commit is contained in:
Matthew Flatt 2011-08-16 10:27:37 -06:00
parent d05f138ed2
commit 311d55b5cf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/racket/src/syntax.c
View File

@ -3618,8 +3618,9 @@ static Scheme_Object *resolve_env(WRAP_POS *_wraps,
if (_wraps) { if (_wraps) {
WRAP_POS_COPY(wraps, *_wraps); WRAP_POS_COPY(wraps, *_wraps);
WRAP_POS_INC(wraps); WRAP_POS_INC(wraps);
} else } else {
WRAP_POS_INIT(wraps, ((Scheme_Stx *)a)->wraps); WRAP_POS_INIT(wraps, ((Scheme_Stx *)a)->wraps);
}
while (1) { while (1) {
if (WRAP_POS_END_P(wraps)) { if (WRAP_POS_END_P(wraps)) {