diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor index 1b5aaf39ec..e74db9a1ae 100644 --- a/extra/mason/report/report.factor +++ b/extra/mason/report/report.factor @@ -31,10 +31,13 @@ IN: mason.report write-xml ] with-file-writer ; inline +: file-tail ( file encoding lines -- seq ) + [ file-lines ] dip short tail* "\n" join ; + :: failed-report ( error file what -- status ) [ error [ error. ] with-string-writer :> error - file utf8 file-lines 400 short tail* :> output + file utf8 400 file-tail :> output [XML