Making the reports work

2024-10-05 13:34:10 +03:00 · 2024-10-05 13:34:10 +03:00 · 3221d82396
parent e0675aa11e
commit 3221d82396
1 changed files with 2 additions and 3 deletions
--- 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"))