suzanne.soy/rackunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix check-exn contract error message

Browse Source
This commit is contained in:
Ryan Culpepper 2016-07-29 11:45:52 -04:00 committed by GitHub
parent 21b278c864
commit 7f484888f5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rackunit-lib/rackunit/private/check.rkt
View File

@ -215,7 +215,7 @@
[(and (procedure? raw-pred) (procedure-arity-includes? raw-pred 1)) [(and (procedure? raw-pred) (procedure-arity-includes? raw-pred 1))
raw-pred] raw-pred]
[else [else
(raise-argument-error 'check-exn "(-> any/c any/c)" raw-pred)])]) (raise-argument-error 'check-exn "(or/c (-> any/c any/c) regexp?)" raw-pred)])])
(raise-error-if-not-thunk 'check-exn thunk) (raise-error-if-not-thunk 'check-exn thunk)
(let/ec succeed (let/ec succeed
(with-handlers (with-handlers