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

commit 48581ad3d0858fefee89a99fa5465cf564c41801
parent a33001e62fc8a71b623b8a02453a7c9147331666
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon,  5 Sep 2011 16:08:16 -0600

generalized `begin-for-syntax'

original commit: d3c56c9f13327d07513f8b6bf7ea0230acb7f489

Diffstat:
M
collects/scribble/doclang.rkt
 | 
2
+-
M
collects/scribble/private/lp.rkt
 | 
1
-
M
collects/scribble/text/syntax-utils.rkt
 | 
2
+-

3 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/doclang.rkt b/collects/scribble/doclang.rkt
@@ -54,7 +54,7 @@
                                               provide
                                               define-values
                                               define-syntaxes
-                                              define-values-for-syntax
+                                              begin-for-syntax
                                               #%require
                                               #%provide))))
                  #`(begin #,expanded (doc-begin m-id post-process exprs . body))]
diff --git a/collects/scribble/private/lp.rkt b/collects/scribble/private/lp.rkt
@@ -50,7 +50,6 @@
                      [(rest ...) (if n
                                      #`((subscript #,(format "~a" n)))
                                      #`())])
-         
          #`(begin
              (require (for-label for-label-mod ... ...))
              #,@(if n
diff --git a/collects/scribble/text/syntax-utils.rkt b/collects/scribble/text/syntax-utils.rkt
@@ -7,7 +7,7 @@
 
 (begin-for-syntax
   (define definition-ids ; ids that don't require forcing
-    (syntax->list #'(define-values define-syntaxes define-values-for-syntax
+    (syntax->list #'(define-values define-syntaxes begin-for-syntax
                      require provide #%require #%provide)))
   (define stoplist (append definition-ids (kernel-form-identifier-list)))
   (define (definition-id? id)