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:40:50 +03:00
parent 66242c5887
commit 049937d6bc
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
report.scm
View File

@ -68,8 +68,6 @@
(lambda (line) (lambda (line)
(string-append line "</br>")) (string-append line "</br>"))
results)))) results))))
(write results)
(newline)
(execute report-row (execute report-row
`((name . ,name) `((name . ,name)
(command . ,command) (command . ,command)

4
util.scm
View File

@ -26,7 +26,9 @@
((looper ((looper
(lambda (line count lines) (lambda (line count lines)
(if (eof-object? line) (if (eof-object? line)
(list-tail lines (- (length lines) linecount)) (if (< (length lines) linecount)
(list)
(list-tail lines (- (length lines) linecount)))
(looper (read-line) (+ count 1) (append lines (list line))))))) (looper (read-line) (+ count 1) (append lines (list line)))))))
(looper (read-line) 0 (list))))))) (looper (read-line) 0 (list)))))))