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

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

This reverts commit 1771f18998.
Doug Coleman 2011-10-21 15:34:08 -05:00
parent a13676f3b6
commit 20a31bcef7
1 changed files with 5 additions and 7 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 prettyprint.config ; combinators.short-circuit literals splitting ;
IN: mason.report IN: mason.report
: git-link ( id -- link ) : git-link ( id -- link )
@ -31,12 +31,10 @@ 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 )