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

fix macro expansion of (provide (expand ...))

Browse Source 
svn: r8751
This commit is contained in:
Matthew Flatt 2008-02-21 02:18:14 +00:00
parent 0416a85a66
commit 5b0164eaeb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/mzscheme/src/module.c
View File

@ -7333,8 +7333,9 @@ void parse_provides(Scheme_Object *form, Scheme_Object *fst, Scheme_Object *e,
if (!SAME_OBJ(mode, scheme_make_integer(0))) {
Scheme_Object *f;
f = SCHEME_STX_CAR(mode_stx);
a = scheme_make_pair(f, scheme_make_pair(for_meta_symbol,
scheme_make_pair(mode, scheme_null)));
a = scheme_make_pair(for_meta_symbol,
scheme_make_pair(mode,
scheme_make_pair(a, scheme_null)));
a = scheme_datum_to_syntax(a, mode_stx, mode_stx, 0, 0);
}
rebuilt = scheme_make_pair(a, rebuilt);