add one more leading space to contract error messages (covering the first field)

2013-04-13 18:44:19 -05:00 · 2013-04-13 18:44:19 -05:00 · 0d0334616f
commit 0d0334616f
parent 24ee49b7a2
1 changed files with 1 additions and 1 deletions
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@ -253,7 +253,7 @@
  
  (combine-lines
   start-of-message
-   (format " ~a"  custom-message)
+   (format "  ~a"  custom-message)
   context-lines
   (if context-lines
       contract-line