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

Try without-limits in mason.report. Fixes #275.

db4
Doug Coleman 2011-10-18 00:52:46 -07:00
parent 24a6895436
commit 5771cafcee
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ USING: benchmark combinators.smart debugger fry io assocs
io.encodings.utf8 io.files io.sockets io.streams.string kernel io.encodings.utf8 io.files io.sockets io.streams.string kernel
locals mason.common mason.config mason.disk mason.platform math locals mason.common mason.config mason.disk mason.platform math
namespaces prettyprint sequences xml.syntax xml.writer namespaces prettyprint sequences xml.syntax xml.writer
combinators.short-circuit literals splitting ; combinators.short-circuit literals splitting prettyprint.config ;
IN: mason.report IN: mason.report
: git-link ( id -- link ) : git-link ( id -- link )
@ -31,10 +31,12 @@ IN: mason.report
: with-report ( quot -- ) : with-report ( quot -- )
[ "report" utf8 ] dip [ "report" utf8 ] dip
'[ '[
[
common-report common-report
_ call( -- xml ) _ call( -- xml )
[XML <html><body><-><-></body></html> XML] [XML <html><body><-><-></body></html> XML]
write-xml write-xml
] without-limits
] with-file-writer ; inline ] with-file-writer ; inline
: file-tail ( file encoding lines -- seq ) : file-tail ( file encoding lines -- seq )