diff --git a/private/format-utils.rkt b/private/format-utils.rkt index ce2b7d2..d6c97c1 100644 --- a/private/format-utils.rkt +++ b/private/format-utils.rkt @@ -81,8 +81,8 @@ (let loop ([stx stx] [first? #t]) (define (loop* stx) (loop stx #f)) (syntax-parse stx - #:datum-literals (module module* module+ begin-for-syntax define-syntax define-syntaxes) - [((~or module module* module+ begin-for-syntax define-syntax define-syntaxes) + #:datum-literals (module module* module+ begin-for-syntax) + [((~or module module* module+ begin-for-syntax) e ...) #:when (not first?) (define ?start (syntax-position stx)) diff --git a/scribblings/api.scrbl b/scribblings/api.scrbl index cf01fba..8fe5776 100644 --- a/scribblings/api.scrbl +++ b/scribblings/api.scrbl @@ -48,8 +48,7 @@ in that file is covered. By default it checks character locations. There are three possible results: @itemize[@item{@racket['irrelevant] --- The location is not considered relevant to coverage information. -It is either not in the coverage information; is in a submodule; is a @racket[define-syntax], -@racket[define-syntaxes], or @racket[begin-for-syntax] form; +It is either not in the coverage information; is in a submodule; is a @racket[begin-for-syntax] form; or lexes (in the sense of that languages, @racket[_color-lexer]) as a comment or whitespace.} @item{@racket['covered] --- The location is not @racket['irrelevant] and is covered}