mason.report: join lines with \n

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index 1b5aaf39ec4d06056c402dedc27a029570eff462..e74db9a1ae2e0bc09b3be3e6a931cd43ebf2259f 100644 (file)
--- 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
         <h2><-what-></h2>