Add type for `error-display-handler'

original commit: 27aa3f7556fb9062290abfe58acf3812655a9d9d
This commit is contained in:
Sam Tobin-Hochstadt 2011-05-08 15:07:56 -04:00
parent 605cfeec02
commit a57d49ecb7

View File

@ -286,6 +286,8 @@
(make-arr (list Sym -String) (Un) #:rest Univ)
(make-arr (list -String) (Un) #:rest Univ)
(make-arr (list Sym) (Un)))))
[error-display-handler (-Param (-polydots (a) (-String Univ . -> . Univ))
(-polydots (a) (-String Univ . -> . Univ)))]
[namespace-variable-value (Sym [Univ (-opt (-> Univ)) -Namespace] . ->opt . Univ)]