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

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
locals mason.common mason.config mason.disk mason.platform math
namespaces prettyprint sequences xml.syntax xml.writer
combinators.short-circuit literals splitting prettyprint.config ;
combinators.short-circuit literals splitting ;
IN: mason.report
: git-link ( id -- link )
@ -31,12 +31,10 @@ IN: mason.report
: with-report ( quot -- )
[ "report" utf8 ] dip
'[
[
common-report
_ call( -- xml )
[XML <html><body><-><-></body></html> XML]
write-xml
] without-limits
common-report
_ call( -- xml )
[XML <html><body><-><-></body></html> XML]
write-xml
] with-file-writer ; inline
: file-tail ( file encoding lines -- seq )