factor: trim using lists

[factor.git] / extra / spider / report / report.factor

diff --git a/extra/spider/report/report.factor b/extra/spider/report/report.factor
index 48620cac5568e5b5d9f98863d2bf19cb39b18337..e49b16ff01d2676fbb462d869a838f3425722e84 100644 (file)
--- a/extra/spider/report/report.factor
+++ b/extra/spider/report/report.factor
@@ -1,8 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators kernel math
-math.statistics namespaces sequences sorting xml.syntax
-spider urls html ;
+USING: accessors arrays assocs combinators html kernel math
+math.statistics namespaces sequences sorting urls xml.syntax ;
 IN: spider.report
 
 SYMBOL: network-failures
@@ -39,10 +38,11 @@ SYMBOL: time-std
     timings get sort-values
     [ slowest short tail* reverse slowest-pages set ]
     [
-        values
-        [ mean 1000000 /f mean-time set ]
-        [ median 1000000 /f median-time set ]
-        [ std 1000000 /f time-std set ] tri
+        values [
+            [ mean 1000000 /f mean-time set ]
+            [ median 1000000 /f median-time set ]
+            [ std 1000000 /f time-std set ] tri
+        ] unless-empty
     ] bi ;
 
 : process-results ( results -- )