>From dba40edf39de37717f94aea40d2b44c10b5c1f54 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 8 Jun 2013 17:33:42 +0200 Subject: [PATCH 1/2] Use "write" for printing expectation and result, for better test output --- tests/test.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/test.scm b/tests/test.scm index d8bd1c5..bbe07f8 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)))))) -- 1.8.2.3