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

fix spacing in contract error message

Browse Source
This commit is contained in:
Robby Findler 2013-07-22 09:48:14 -05:00
parent bf73928892
commit 7b01d2920a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -360,7 +360,7 @@
(raise-blame-error (raise-blame-error
blame blame
val val
'(expected: "~s" given: "~e\n which isn't: ~s") '(expected: "~s" given: "~e\n which isn't: ~s")
(contract-name ctc) (contract-name ctc)
val val
(contract-name (car ctcs))))]))))) (contract-name (car ctcs))))])))))
@ -723,7 +723,7 @@
(unless (= actual expected) (unless (= actual expected)
(raise-blame-error (raise-blame-error
blame x blame x
'(expected: "a list of ~a elements" given: "~a element~a\n complete list: ~e") '(expected: "a list of ~a elements" given: "~a element~a\n complete list: ~e")
expected expected
actual actual
(if (= actual 1) "" "s") (if (= actual 1) "" "s")