Slightly improving error message on test--> failure

2010-07-16 15:51:08 -06:00 · 2010-07-16 15:51:08 -06:00 · ec487fac4c
commit ec487fac4c
parent fc29e7e856
1 changed files with 5 additions and 3 deletions
--- a/collects/redex/private/reduction-semantics.rkt
+++ b/collects/redex/private/reduction-semantics.rkt
@ -2127,9 +2127,11 @@
           (for-each
            (λ (v2) (fprintf (current-error-port) "expected: ~v\n" v2))
            expected)
+           (if (empty? got)
+               (fprintf (current-error-port) "got nothing\n")
               (for-each
                (λ (v1) (fprintf (current-error-port) "  actual: ~v\n" v1))
-            got)))])))
+                got))))])))

 (define-syntax (test-predicate stx)
  (syntax-case stx ()