suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix top-level use of classes

Browse Source
This commit is contained in:
Asumu Takikawa 2013-05-19 18:38:22 -04:00
parent dc35a8cd4d
commit 2ae1f5a602
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-toplevel.rkt
View File

@ -159,6 +159,12 @@
(parameterize ([current-orig-stx form]) (parameterize ([current-orig-stx form])
(syntax-parse form (syntax-parse form
#:literal-sets (kernel-literals) #: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 ;; these forms we have been instructed to ignore
[stx:ignore^ [stx:ignore^
(void)] (void)]