Making the reports work

This commit is contained in:
retropikzel 2024-10-05 14:59:57 +03:00
parent 44f6b3a90e
commit 59794bc838
1 changed files with 3 additions and 3 deletions

View File

@ -27,10 +27,10 @@
(newline out)
(display "<th>Test</th>" out)
(for-each
(lambda (implementation)
(display (string-append "<th>" (cdr (assoc 'name implementation)) "</th>") out)
(lambda (test)
(display (string-append "<th>" (cdr (assoc 'name test)) "</th>") out)
(newline out))
implementations)
tests)
(display "</tr>" out)
(newline out)
(newline out)