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.
db4
Doug Coleman 2011-10-21 15:34:08 -05:00
parent 5a943b32c4
commit 93d6807d33
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 )