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

View File

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

View File

@ -26,7 +26,9 @@
((looper
(lambda (line count lines)
(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) 0 (list)))))))