Fix top-level use of classes

original commit: 2ae1f5a602f843f9c854de9809916a60ff767cc5
This commit is contained in:
Asumu Takikawa 2013-05-19 18:38:22 -04:00
parent 59a5c57f42
commit 06c9398293

View File

@ -159,6 +159,12 @@
(parameterize ([current-orig-stx form])
(syntax-parse form
#:literal-sets (kernel-literals)
;; need to special case this
;; FIXME: is there a better way?
[stx
#:when (syntax-property form 'tr:class)
(tc-expr #'stx)]
;; these forms we have been instructed to ignore
[stx:ignore^
(void)]