syndicate-lang
/
marketplace-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix silly bug in module-begin for #lang marketplace. Closes #3

This commit is contained in:
Tony Garnock-Jones 2013-10-30 16:50:34 +00:00
parent 2e8320c8a3
commit bd2f7b91ec
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/base.rkt
View File

@ -48,7 +48,7 @@
(if (free-identifier=? #'head #'begin)
(accumulate-actions action-ids
final-forms
(append (syntax->list #'(rest ...)) forms))
(append (syntax->list #'(rest ...)) (cdr forms)))
(if (ormap (lambda (i) (free-identifier=? #'head i))
(syntax->list #'(define-values define-syntaxes begin-for-syntax
module module*