From d4659243966afc05cd4b964dddd70e3ea7a6768e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 24 Sep 2015 11:33:06 +0200
Subject: [PATCH] webapps.mason.report: fix and tc for the stack underflow
 error in build reports

---
 extra/webapps/mason/report/report-tests.factor |  7 +++++++
 extra/webapps/mason/report/report.factor       | 17 ++++++++---------
 2 files changed, 15 insertions(+), 9 deletions(-)
 create mode 100644 extra/webapps/mason/report/report-tests.factor

diff --git a/extra/webapps/mason/report/report-tests.factor b/extra/webapps/mason/report/report-tests.factor
new file mode 100644
index 0000000000..e6236906a6
--- /dev/null
+++ b/extra/webapps/mason/report/report-tests.factor
@@ -0,0 +1,7 @@
+USING: accessors stack-checker tools.test webapps.mason.report ;
+IN: webapps.mason.report.tests
+
+! <build-report-action>
+{ ( -- x ) } [
+    <build-report-action> display>> infer
+] unit-test
diff --git a/extra/webapps/mason/report/report.factor b/extra/webapps/mason/report/report.factor
index 6f64f4c9b5..a82fc30e8f 100644
--- a/extra/webapps/mason/report/report.factor
+++ b/extra/webapps/mason/report/report.factor
@@ -4,18 +4,17 @@ USING: accessors furnace.actions http.server.responses kernel
 urls xml.syntax webapps.mason.backend webapps.mason.utils ;
 IN: webapps.mason.report
 
+: build-report ( -- response )
+    [
+        current-builder [
+            last-report>> <html-content>
+        ] [ <404> ] if*
+    ] with-mason-db ;
+
 : <build-report-action> ( -- action )
     <action>
         [ validate-os/cpu ] >>init
-        [
-            [
-                current-builder [
-                    last-report>> <html-content>
-                ] [
-                    <404>
-                ] if
-            ] with-mason-db
-        ] >>display ;
+        [ build-report ] >>display ;
 
 : report-link ( builder -- xml )
     [ URL" report" ] dip