suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

generalized `begin-for-syntax'

Browse Source 
original commit: d3c56c9f13327d07513f8b6bf7ea0230acb7f489
This commit is contained in:
Matthew Flatt 2011-09-05 16:08:16 -06:00
parent a33001e62f
commit 48581ad3d0
3 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/doclang.rkt
View File

@ -54,7 +54,7 @@
provide provide
define-values define-values
define-syntaxes define-syntaxes
define-values-for-syntax begin-for-syntax
#%require #%require
#%provide)))) #%provide))))
#`(begin #,expanded (doc-begin m-id post-process exprs . body))] #`(begin #,expanded (doc-begin m-id post-process exprs . body))]

1
collects/scribble/private/lp.rkt
View File

@ -50,7 +50,6 @@
[(rest ...) (if n [(rest ...) (if n
#`((subscript #,(format "~a" n))) #`((subscript #,(format "~a" n)))
#`())]) #`())])
#`(begin #`(begin
(require (for-label for-label-mod ... ...)) (require (for-label for-label-mod ... ...))
#,@(if n #,@(if n

2
collects/scribble/text/syntax-utils.rkt
View File

@ -7,7 +7,7 @@
(begin-for-syntax (begin-for-syntax
(define definition-ids ; ids that don't require forcing (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))) require provide #%require #%provide)))
(define stoplist (append definition-ids (kernel-form-identifier-list))) (define stoplist (append definition-ids (kernel-form-identifier-list)))
(define (definition-id? id) (define (definition-id? id)