Add type for `error-display-handler'
original commit: 27aa3f7556fb9062290abfe58acf3812655a9d9d
This commit is contained in:
parent
605cfeec02
commit
a57d49ecb7
|
@ -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)]
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user