steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.report: join lines with \n

Slava Pestov 2009-05-18 16:50:11 -05:00
parent 6e58db4bbd
commit 08db84fe42
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/mason/report/report.factor
View File

@ -31,10 +31,13 @@ IN: mason.report
write-xml write-xml
] with-file-writer ; inline ] with-file-writer ; inline
: file-tail ( file encoding lines -- seq )
[ file-lines ] dip short tail* "\n" join ;
:: failed-report ( error file what -- status ) :: failed-report ( error file what -- status )
[ [
error [ error. ] with-string-writer :> error error [ error. ] with-string-writer :> error
file utf8 file-lines 400 short tail* :> output file utf8 400 file-tail :> output
[XML [XML
<h2><-what-></h2> <h2><-what-></h2>