Making the reports work

2024-10-05 14:40:50 +03:00 · 2024-10-05 14:40:50 +03:00 · 049937d6bc
parent 66242c5887
commit 049937d6bc
2 changed files with 3 additions and 3 deletions
--- a/report.scm
+++ b/report.scm
@ -68,8 +68,6 @@
                                         (lambda (line)
                                           (string-append line "</br>"))
                                         results))))
-                (write results)
-                (newline)
                (execute report-row
                         `((name . ,name)
                           (command . ,command)
--- a/util.scm
+++ b/util.scm
@ -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)))))))