Fix TR type for current-check-around

This commit is contained in:
Asumu Takikawa 2014-08-12 17:24:07 -04:00
parent a266d623aa
commit cc442ef0ec

View File

@ -171,7 +171,12 @@
(require/typed/provide (require/typed/provide
rackunit rackunit
[current-check-handler [current-check-handler
(Parameter (Any -> Any))] (Parameter (-> (U (Rec flat
(U Boolean Complex Char
Null Symbol String
Keyword (Pairof flat flat)))
exn)
Any))]
[current-check-around [current-check-around
(Parameter ((Thunk Any) -> Any))]) (Parameter ((Thunk Any) -> Any))])