Repair da574a4 again.

This commit is contained in:
Sam Tobin-Hochstadt 2015-11-10 08:59:18 -05:00
parent 983b509f2a
commit d9e3c2ac6a
2 changed files with 4 additions and 4 deletions

View File

@ -251,7 +251,8 @@
restricted))
(if (null? possibles)
#f
possibles)]))
possibles)]
[_ #f]))
=>
(lambda (x)
(register-ignored! (car (syntax-e body)))

View File

@ -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)))]