Repair da574a4
again.
This commit is contained in:
parent
983b509f2a
commit
d9e3c2ac6a
|
@ -251,7 +251,8 @@
|
|||
restricted))
|
||||
(if (null? possibles)
|
||||
#f
|
||||
possibles)]))
|
||||
possibles)]
|
||||
[_ #f]))
|
||||
=>
|
||||
(lambda (x)
|
||||
(register-ignored! (car (syntax-e body)))
|
||||
|
|
|
@ -3463,12 +3463,11 @@
|
|||
(raise "foo"))
|
||||
#:ret (ret -String)
|
||||
#:msg #rx"expected: String.*given: Any"]
|
||||
[tc-err
|
||||
[tc-e
|
||||
(with-handlers ([string? (lambda: ([e : String]) (string-append e "bar"))]
|
||||
[symbol? (lambda (x) (symbol->string x))])
|
||||
(raise 'foo))
|
||||
#:ret (ret -String)
|
||||
#:msg #rx"expected: Symbol.*given: Any"]
|
||||
#:ret (ret -String)]
|
||||
|
||||
[tc-err
|
||||
(raise (λ ([x : Number]) (add1 x)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user