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

flat-contract-with-explanation: fix internal error

Browse Source 
Previously, `error` would raise an `exn:fail` with the following message,
because it treated the first of the three strings as a format string
and the other two as its arguments:

> error: format string requires 0 arguments, given 2;
> arguments were:
> " is a procedure, to always escape when called"
> " (by calling raise-blame-error with the arguments it was given"`
This commit is contained in:
Philip McGrath 2020-10-15 17:52:55 -04:00 committed by Robby Findler
parent a471692ce8
commit 79fceea024
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/collects/racket/contract/private/misc.rkt
View File

@ -1282,6 +1282,7 @@
[else [else
(accept-or-reason (blame-add-missing-party b neg-party)) (accept-or-reason (blame-add-missing-party b neg-party))
(error 'flat-contract-with-explanation (error 'flat-contract-with-explanation
"expected that result of the first argument, when it" (string-append
" is a procedure, to always escape when called" "expected that result of the first argument, when it"
" (by calling raise-blame-error with the arguments it was given")]))))) " is a procedure, to always escape when called"
" (by calling raise-blame-error with the arguments it was given"))])))))