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

fix parsing of protect-out' on for-syntax' bindings

Browse Source
This commit is contained in:
Matthew Flatt 2011-09-23 06:33:12 +09:00
parent cc42ac8b1f
commit 051f164f3f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/module.c
View File

@ -8679,7 +8679,7 @@ void parse_provides(Scheme_Object *form, Scheme_Object *fst, Scheme_Object *e,
l = scheme_append(a, l); l = scheme_append(a, l);
mode_cnt = scheme_list_length(a); mode_cnt = scheme_list_length(a);
if (protect_cnt) if (protect_cnt)
protect_cnt += mode_cnt; protect_cnt += (mode_cnt - 1);;
a = SCHEME_STX_CAR(l); a = SCHEME_STX_CAR(l);
} else } else
break; break;