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

fix spacing bug in contract error messages

Browse Source
This commit is contained in:
Robby Findler 2014-12-23 16:37:55 -06:00
parent 1f7565fe47
commit fd99e57020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -309,7 +309,7 @@
(format " contract from: ~a" from-negative-message)))) (format " contract from: ~a" from-negative-message))))
(define custom-message-appears-to-start-with-fields? (define custom-message-appears-to-start-with-fields?
(regexp-match? #rx"[^\n]*:" custom-message)) (regexp-match? #rx"^[^\n]*:" custom-message))
(combine-lines (combine-lines
(if custom-message-appears-to-start-with-fields? (if custom-message-appears-to-start-with-fields?