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

added the 'blaming' part of the contract message to self-contract violations (but kept 'self-')

Browse Source
This commit is contained in:
Robby Findler 2011-01-02 17:00:19 -06:00
parent 47e3db06ff
commit 193617f917
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/racket/contract/private/blame.rkt
View File

@ -87,9 +87,13 @@
[(blame-original? b) [(blame-original? b)
(string-append (string-append
(format "self-contract violation: ~a\n" custom-message) (format "self-contract violation: ~a\n" custom-message)
(format " contract~a from ~a~a" (format " contract~a from ~a~a blaming ~a~a"
value-message value-message
positive-message positive-message
(if (regexp-match #rx"\n" positive-message)
" "
",")
positive-message
(if (regexp-match #rx"\n" positive-message) (if (regexp-match #rx"\n" positive-message)
"" ""
"\n")) "\n"))