mason.report: fix stack effect for output>array.

diff --git a/extra/mason/report/report-tests.factor b/extra/mason/report/report-tests.factor
index 7a563d61494b2feffa92574dcd02ceeee0f96c0c..81a1ba8226c45686713d2dd372a918038b88707e 100644 (file)
--- a/extra/mason/report/report-tests.factor
+++ b/extra/mason/report/report-tests.factor
@@ -1,6 +1,7 @@
+USING: io.directories io.directories.hierarchy io.files
+io.files.temp kernel mason.common mason.config mason.report
+namespaces tools.test xml xml.writer ;
 IN: mason.report.tests
-USING: io.files io.files.temp io.directories io.directories.hierarchy kernel
-mason.report mason.common mason.config namespaces tools.test xml xml.writer ;
 
 { 0 0 } [ [ ] with-report ] must-infer-as
 

diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index ae4d6dc41cb10c59c068b731ed47e39e0e3cb18c..225a4d60d844ca80712da1090941b82834220e16 100644 (file)
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -124,15 +124,17 @@ IN: mason.report
             error-dump
 
             skip-mason-benchmarks get-global [
+                f f
+            ] [
                 "Benchmark errors"
                 benchmark-error-vocabs-file
                 benchmark-error-messages-file
                 error-dump
 
                 benchmarks-file eval-file benchmarks-table
-            ] unless
+            ] if
 
-        ] output>array
+        ] output>array sift
     ] with-report ;
 
 : build-clean? ( -- ? )