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

Raise proper errors when there are too many contract constraints.

Browse Source 
Fixes PR 14890.

This could potentially be relaxed if needed, but this addresses
the immediate issue.
This commit is contained in:
Sam Tobin-Hochstadt 2015-02-09 16:37:32 -05:00
parent ae0717d970
commit bafc7d93e7
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
typed-racket-lib/typed-racket/static-contracts/constraints.rkt
View File

@ -284,5 +284,15 @@
(raise (exn:fail:constraint-failure
(format "Violated constraint: ~a" reason)
(current-continuation-marks)
reason)))]))]))
reason)))]
[(contract-restrict (kind-max d _) rec constraints)
(raise (exn:fail:constraint-failure
(format "Violated constraint: ~a" "too many ids")
(current-continuation-marks)
(~a d)))]))]
[(contract-restrict (kind-max d _) rec constraints)
(raise (exn:fail:constraint-failure
(format "Violated constraint: ~a" "too many ids")
(current-continuation-marks)
(~a d)))]))