diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/doclang.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/doclang.rkt index 718d666a..f3d781dc 100644 --- a/pkgs/scribble-pkgs/scribble-lib/scribble/doclang.rkt +++ b/pkgs/scribble-pkgs/scribble-lib/scribble/doclang.rkt @@ -40,9 +40,7 @@ #'body1 'module (append (kernel-form-identifier-list) (syntax->list #'(provide - require - #%provide - #%require))))]) + require))))]) (syntax-case expanded (begin) [(begin body1 ...) #`(doc-begin m-id post-process exprs body1 ... . body)] @@ -57,7 +55,8 @@ module module* #%require - #%provide)))) + #%provide + #%declare)))) #`(begin #,expanded (doc-begin m-id post-process exprs . body))] [_else #`(doc-begin m-id post-process diff --git a/pkgs/scribble-pkgs/scribble-text-lib/scribble/text/syntax-utils.rkt b/pkgs/scribble-pkgs/scribble-text-lib/scribble/text/syntax-utils.rkt index 3240a1d3..da3a4177 100644 --- a/pkgs/scribble-pkgs/scribble-text-lib/scribble/text/syntax-utils.rkt +++ b/pkgs/scribble-pkgs/scribble-text-lib/scribble/text/syntax-utils.rkt @@ -8,7 +8,7 @@ (begin-for-syntax (define definition-ids ; ids that don't require forcing (syntax->list #'(define-values define-syntaxes begin-for-syntax - require provide #%require #%provide))) + require provide #%require #%provide #%declare))) (define stoplist (append definition-ids (kernel-form-identifier-list))) (define (definition-id? id) (and (identifier? id)