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

fix syntax checking for #%declare

Browse Source
This commit is contained in:
Matthew Flatt 2014-03-11 08:21:03 -06:00
parent df857e1c76
commit f340625333
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-pkgs/racket-test/tests/racket/module.rktl
View File

@ -50,6 +50,11 @@
(syntax-test #'(module n+ racket/base (#%module-begin) (define n+ 'n+) (provide n+)))
(module n+ racket/base (#%module-begin (define n+ 'n+) (provide n+)))
(syntax-test #'(#%declare))
(syntax-test #'(module m racket/base (#%declare something)))
(syntax-test #'(module m racket/base (#%declare "something")))
(syntax-test #'(module m racket/base (#%declare #:something)))
(syntax-test #'(#%provide))
(syntax-test #'(#%provide . x))
(syntax-test #'(#%provide y . x))

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

@ -9082,6 +9082,8 @@ static Scheme_Object *do_module_begin_at_phase(Scheme_Object *form, Scheme_Comp_
} else {
scheme_wrong_syntax(who, kw, e, "unrecognized keyword");
}
} else {
scheme_wrong_syntax(who, kw, e, "expected a keyword");
}
kws = SCHEME_STX_CDR(kws);
}