From eb5963905c6c708fb975497417b4b95b36292686 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 9 Jul 2006 21:04:15 +0000
Subject: [PATCH] report errors in the same order they happened

svn: r3664
---
 collects/tests/mzscheme/testing.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/testing.ss b/collects/tests/mzscheme/testing.ss
index f3656293ac..af17c6185b 100644
--- a/collects/tests/mzscheme/testing.ss
+++ b/collects/tests/mzscheme/testing.ss
@@ -276,7 +276,7 @@ transcript.
     (if ok?
       (printf "Passed all tests.\n")
       (begin (printf "Errors were:\n(Section (got expected (call)))\n")
-             (for-each (lambda (l) (printf "~s\n" l)) errs)
+             (for-each (lambda (l) (printf "~s\n" l)) (reverse errs))
              (when final? (exit 1))))
     (when final? (exit (if ok? 0 1)))
     (printf "(Other messages report successful tests of~a.)\n"