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

reformat error message for implode, Closes PR 13690

Browse Source
This commit is contained in:
Matthias Felleisen 2013-04-12 16:25:07 -04:00
parent fa80c53115
commit 6642c114f7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lang/private/teachprims.rkt
View File

@ -466,7 +466,7 @@ namespace.
(unless (list? s) (err tag "expected a ~a, but received: ~e" 1-LETTER* s)) (unless (list? s) (err tag "expected a ~a, but received: ~e" 1-LETTER* s))
(for-each (for-each
(lambda (c) (lambda (c)
(unless (string? c) (err tag "expected a ~a, but received: ~e" 1-LETTER* c))) (unless (string? c) (err tag "expected a ~a, but received: ~e\n which contains the non-1-letter string: ~e" 1-LETTER* s c)))
s) s)
(andmap (compose (curry = 1) string-length) s)) (andmap (compose (curry = 1) string-length) s))
@ -484,6 +484,7 @@ namespace.
(case-lambda (case-lambda
[(tag check-result format-msg actual) [(tag check-result format-msg actual)
(unless check-result (unless check-result
(displayln `(cerr ,actual))
(err tag (string-append "expected " (a-or-an format-msg) " " format-msg ", but received ~e") actual))] (err tag (string-append "expected " (a-or-an format-msg) " " format-msg ", but received ~e") actual))]
[(tag check-result format-msg actual snd) [(tag check-result format-msg actual snd)
(unless check-result (unless check-result