Fix silly bug in module-begin for #lang marketplace. Closes #3
This commit is contained in:
parent
2e8320c8a3
commit
bd2f7b91ec
|
@ -48,7 +48,7 @@
|
||||||
(if (free-identifier=? #'head #'begin)
|
(if (free-identifier=? #'head #'begin)
|
||||||
(accumulate-actions action-ids
|
(accumulate-actions action-ids
|
||||||
final-forms
|
final-forms
|
||||||
(append (syntax->list #'(rest ...)) forms))
|
(append (syntax->list #'(rest ...)) (cdr forms)))
|
||||||
(if (ormap (lambda (i) (free-identifier=? #'head i))
|
(if (ormap (lambda (i) (free-identifier=? #'head i))
|
||||||
(syntax->list #'(define-values define-syntaxes begin-for-syntax
|
(syntax->list #'(define-values define-syntaxes begin-for-syntax
|
||||||
module module*
|
module module*
|
||||||
|
|
Loading…
Reference in New Issue