From 3221d823961bef6ec091d0889b81d20147e4a21c Mon Sep 17 00:00:00 2001
From: retropikzel <retropikzel@iki.fi>
Date: Sat, 5 Oct 2024 13:34:10 +0300
Subject: [PATCH] Making the reports work

---
 report.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/report.scm b/report.scm
index a2d355b..a257628 100644
--- a/report.scm
+++ b/report.scm
@@ -35,8 +35,7 @@
     (newline out)
     (for-each
       (lambda (test)
-        (let ((test-name (cdr (assoc 'name test)))
-              (name (symbol->string (cdr (assoc 'name implementation)))))
+        (let ((test-name (cdr (assoc 'name test))))
           (display (string-append "<tr>") out)
           (newline out)
           (display (string-append "<td>" test-name "</td>") out)
@@ -46,7 +45,7 @@
               (letrec* ((name (cdr (assoc 'name implementation)))
                         (command (cdr (assoc 'command implementation)))
                         (logfile (string-append "reports/"
-                                                name
+                                                (cdr (assoc 'name implementation))
                                                 "-"
                                                 test-name
                                                 ".log"))