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

Fix tc-toplevel-form for ignored syntax

Browse Source 
original commit: 2c042998b9e8d6a62cd9a3ad4c7d576a6a3b052e
This commit is contained in:
Asumu Takikawa 2013-05-14 14:14:07 -04:00
parent e8ce1afc29
commit a9a79c0e4a
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)
(syntax-parse form
[((~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 ...)))
(begin0 (values #f (tc-toplevel/pass2 form))
(report-all-errors))]