factor: trim using lists

[factor.git] / extra / site-watcher / site-watcher.factor

diff --git a/extra/site-watcher/site-watcher.factor b/extra/site-watcher/site-watcher.factor
index f0e086343e22dc0ebdeb5e1b493fbbb4cf230010..16deccc8ee2ae88fa3623eca91024dbd5a85120b 100644 (file)
--- a/extra/site-watcher/site-watcher.factor
+++ b/extra/site-watcher/site-watcher.factor
@@ -1,14 +1,13 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors timers arrays calendar combinators
-combinators.smart continuations debugger http.client fry
-init io.streams.string kernel locals math math.parser db
-namespaces sequences site-watcher.db site-watcher.email ;
+USING: accessors calendar continuations db http.client init
+kernel math math.parser namespaces sequences site-watcher.db
+site-watcher.email timers ;
 IN: site-watcher
 
 SYMBOL: site-watcher-frequency
 5 minutes site-watcher-frequency set-global
- 
+
 SYMBOL: running-site-watcher
 [ f running-site-watcher set-global ] "site-watcher" add-startup-hook
 
@@ -34,7 +33,7 @@ SYMBOL: running-site-watcher
     send-site-email ;
 
 : send-reports ( seq -- )
-    [ ] [ [ send-report ] each ] if-empty ;
+    [ [ send-report ] each ] unless-empty ;
 
 PRIVATE>
 
@@ -42,7 +41,7 @@ PRIVATE>
     find-sites check-sites sites-to-report send-reports ;
 
 : run-site-watcher ( db -- )
-    [ running-site-watcher get ] dip '[ 
+    [ running-site-watcher get ] dip '[
         [ _ [ watch-sites ] with-db ] site-watcher-frequency get every
         running-site-watcher set
     ] unless ;