From 08db84fe428301c82cd852a90cc6a94a950f58ad Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 18 May 2009 16:50:11 -0500
Subject: [PATCH] mason.report: join lines with \n

---
 extra/mason/report/report.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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
         <h2><-what-></h2>