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

Fix tc-toplevel-form for ignored syntax

Browse Source
This commit is contained in:
Asumu Takikawa 2013-05-14 14:14:07 -04:00
parent 3651974c6e
commit 2c042998b9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-racket/typecheck/tc-toplevel.rkt
View File

@ -419,6 +419,9 @@
(define (tc-toplevel-form form) (define (tc-toplevel-form form)
(syntax-parse form (syntax-parse form
[((~literal begin) e ...) [((~literal begin) e ...)
;; Don't open up `begin`s that are supposed to be ignored
#:when (not (or (syntax-property form 'typechecker:ignore)
(syntax-property form 'typechecker:ignore-some)))
(for-each tc-toplevel-form (syntax->list #'(e ...))) (for-each tc-toplevel-form (syntax->list #'(e ...)))
(begin0 (values #f (tc-toplevel/pass2 form)) (begin0 (values #f (tc-toplevel/pass2 form))
(report-all-errors))] (report-all-errors))]