diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/module.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/module.rktl index 099aaa716a..b488de4f25 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/module.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/module.rktl @@ -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)) diff --git a/racket/src/racket/src/module.c b/racket/src/racket/src/module.c index 0ad6b0c11b..561faa2d27 100644 --- a/racket/src/racket/src/module.c +++ b/racket/src/racket/src/module.c @@ -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); }