]> gitweb.factorcode.org Git - factor.git/commitdiff
projects / factor.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 24a6895)
Try without-limits in mason.report. Fixes #275.
authorDoug Coleman <doug.coleman@gmail.com>
Tue, 18 Oct 2011 07:52:46 +0000 (00:52 -0700)
committerDoug Coleman <doug.coleman@gmail.com>
Tue, 18 Oct 2011 07:52:46 +0000 (00:52 -0700)
extra/mason/report/report.factor patch | blob | history

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index 926207be0033940e90845e97bab4312b8de040eb..4c159b44eeb8aae97e899f3d527d6542e4c6e5fd 100644 (file)
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -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 ;
+combinators.short-circuit literals splitting prettyprint.config ;
 IN: mason.report
 
 : git-link ( id -- link )
@@ -31,10 +31,12 @@ IN: mason.report
 : with-report ( quot -- )
     [ "report" utf8 ] dip
     '[
-        common-report
-        _ call( -- xml )
-        [XML <html><body><-><-></body></html> XML]
-        write-xml
+        [
+            common-report
+            _ call( -- xml )
+            [XML <html><body><-><-></body></html> XML]
+            write-xml
+        ] without-limits
     ] with-file-writer ; inline
 
 : file-tail ( file encoding lines -- seq )
Factor programming language