bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 0170b0a672c533afb5d4c0b9bcc5856a4e6c88d7
parent 6c624d531eb9fc02492d6c08ad5eda9986beafd9
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 22 Jul 2013 10:34:39 -0600

add `#%declare', require declaration of cross-phase persistent modules

original commit: 9e2cf2ab376a3461a1db943dfb35f6a152b70470

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/doclang.rkt
 | 
7
+++----
M
pkgs/scribble-pkgs/scribble-text-lib/scribble/text/syntax-utils.rkt
 | 
2
+-

2 files changed, 4 insertions(+), 5 deletions(-)
diff --git 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
@@ -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)