~ chicken-core (chicken-5) 802993fb20bd358ef3ce0aa9fe4131aa6677e8b9

commit 802993fb20bd358ef3ce0aa9fe4131aa6677e8b9
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Sat Jun 8 17:33:42 2013 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Sun Jun 16 21:49:09 2013 +0200

    Use "write" for printing expectation and result, for better test output
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/tests/test.scm b/tests/test.scm
index d8bd1c55..bbe07f8c 100644
--- a/tests/test.scm
+++ b/tests/test.scm
@@ -22,8 +22,8 @@
   (let lp ((ls ls))
     (cond
       ((null? ls) (newline))
-      ((eq? (car ls) 'expect) (display expect) (lp (cdr ls)))
-      ((eq? (car ls) 'result) (display result) (lp (cdr ls)))
+      ((eq? (car ls) 'expect) (write expect) (lp (cdr ls)))
+      ((eq? (car ls) 'result) (write result) (lp (cdr ls)))
       ((eq? (car ls) 'name) (if name (begin (display #\space) (display name))) (lp (cdr ls)))
       (else (display (car ls)) (lp (cdr ls))))))