generalized `begin-for-syntax'
original commit: d3c56c9f13327d07513f8b6bf7ea0230acb7f489
This commit is contained in:
parent
a33001e62f
commit
48581ad3d0
|
@ -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))]
|
||||
|
|
|
@ -50,7 +50,6 @@
|
|||
[(rest ...) (if n
|
||||
#`((subscript #,(format "~a" n)))
|
||||
#`())])
|
||||
|
||||
#`(begin
|
||||
(require (for-label for-label-mod ... ...))
|
||||
#,@(if n
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user