Switch back to module context; module-begin seems inappropriate?
This commit is contained in:
parent
f6be642c97
commit
2a34861168
|
@ -25,7 +25,7 @@
|
||||||
;;(pretty-print (syntax->datum final-stx))
|
;;(pretty-print (syntax->datum final-stx))
|
||||||
final-stx)
|
final-stx)
|
||||||
(syntax-case (local-expand (car forms)
|
(syntax-case (local-expand (car forms)
|
||||||
'module-begin
|
'module
|
||||||
(kernel-form-identifier-list)) ()
|
(kernel-form-identifier-list)) ()
|
||||||
[(head rest ...)
|
[(head rest ...)
|
||||||
(if (free-identifier=? #'head #'begin)
|
(if (free-identifier=? #'head #'begin)
|
||||||
|
|
Loading…
Reference in New Issue