* lib.scm (full-reporter): The test name is the cadr of the

result, not the cdr.  I'm not macho enough to handle run-time
typechecking.

diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index a0e0896..8eced3a 100644 (file)
--- a/test-suite/lib.scm
+++ b/test-suite/lib.scm
@@ -295,7 +295,7 @@
                 ((error) "ERROR")
                 (else #f))))
     (if label
-       (display-line label ": " (format-test-name (cdr result)))
+       (display-line label ": " (format-test-name (cadr result)))
        (error "(test-suite lib) FULL-REPORTER: unrecognized result: "
               result))))