From c05ab7771052ca63f537a3586c030dc15a651062 Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 5 Oct 2024 15:08:38 +0300
Subject: [PATCH] Making the reports work

---
 .gitignore                         | 1 +
 README.md                          | 1 +
 r7rs-tests.scm => r7rs-tests-1.scm | 0
 report.scm                         | 2 +-
 4 files changed, 3 insertions(+), 1 deletion(-)
 rename r7rs-tests.scm => r7rs-tests-1.scm (100%)

diff --git a/.gitignore b/.gitignore
index ea6562f..bad2745 100644
--- a/.gitignore
+++ b/.gitignore
@@ -15,3 +15,4 @@ srfi.*.scm
 srfi.*.sld
 reports
 snow.*
+r7rs-tests.scm
diff --git a/README.md b/README.md
index b63ff62..286833b 100644
--- a/README.md
+++ b/README.md
@@ -4,4 +4,5 @@ Running different R7RS tests on different implementations
     - Chibi Schemes r7rs tests
 - [r7rs-tests-2](https://github.com/larcenists/larceny/tree/master/test/R7RS)
     - Larcenys r7rs tests
+    - Not yet added
 
diff --git a/r7rs-tests.scm b/r7rs-tests-1.scm
similarity index 100%
rename from r7rs-tests.scm
rename to r7rs-tests-1.scm
diff --git a/report.scm b/report.scm
index e447a30..37fca47 100644
--- a/report.scm
+++ b/report.scm
@@ -62,7 +62,7 @@
                         (results
                           (if (file-exists? logfile)
                             (file-tail logfile 3)
-                            (list)))
+                            (list "Could not run tests")))
                         (result (apply string-append
                                        (map
                                          (lambda (line)