Retropikzel
/
r7rs-tests
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
report.scm
View File

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