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

Slightly improving error message on test--> failure

Browse Source
This commit is contained in:
Jay McCarthy 2010-07-16 15:51:08 -06:00
parent fc29e7e856
commit ec487fac4c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/redex/private/reduction-semantics.rkt
View File

@ -2127,9 +2127,11 @@
(for-each (for-each
(λ (v2) (fprintf (current-error-port) "expected: ~v\n" v2)) (λ (v2) (fprintf (current-error-port) "expected: ~v\n" v2))
expected) expected)
(for-each (if (empty? got)
(λ (v1) (fprintf (current-error-port) " actual: ~v\n" v1)) (fprintf (current-error-port) "got nothing\n")
got)))]))) (for-each
(λ (v1) (fprintf (current-error-port) " actual: ~v\n" v1))
got))))])))
(define-syntax (test-predicate stx) (define-syntax (test-predicate stx)
(syntax-case stx () (syntax-case stx ()