From f3ccfb70085d1a6bd43141463e14b06692473b1a Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sun, 14 Dec 2025 07:47:15 +0200
Subject: [PATCH] Improve CTRF library output

---
 Makefile             |  1 -
 retropikzel/ctrf.scm | 13 +++++++++++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/Makefile b/Makefile
index 23de3c8..d44a80b 100644
--- a/Makefile
+++ b/Makefile
@@ -46,7 +46,6 @@ ${TMPDIR}:
 test-r6rs: ${TMPDIR}
 	cd ${TMPDIR} && printf "#!r6rs\n(import (rnrs base) (rnrs control) (rnrs io simple) (rnrs files) (rnrs programs) (srfi :64) (retropikzel ${LIBRARY}))\n" > test-r6rs.sps
 	cat ${TESTFILE} >> ${TMPDIR}/test-r6rs.sps
-	cd ${TMPDIR} && snow-chibi install --impls=generic --always-yes --install-source-dir=. --install-library-dir=. "(srfi 180)"
 	cd ${TMPDIR} && akku install chez-srfi akku-r7rs
 	cd ${TMPDIR} && COMPILE_R7RS=${SCHEME} timeout 120 compile-scheme -I .akku/lib -o test-r6rs test-r6rs.sps
 	cd ${TMPDIR} && timeout 60 ./test-r6rs
diff --git a/retropikzel/ctrf.scm b/retropikzel/ctrf.scm
index fcc53b6..866c9e1 100644
--- a/retropikzel/ctrf.scm
+++ b/retropikzel/ctrf.scm
@@ -111,7 +111,16 @@
               output-file
               (lambda ()
                 (json-write output (current-output-port))))
-            (json-write failed-tests (current-output-port))
-            (newline)
+            (when (not (= (vector-length failed-tests) 0))
+              (display "[")
+              (newline)
+              (vector-for-each
+                (lambda (failed-test)
+                  (display "  ")
+                  (json-write failed-test)
+                  (newline))
+                failed-tests)
+              (display "]")
+              (newline))
             (exit (+ fail xfail)))))
       runner)))