use error. instead of unparse

diff --git a/extra/site-watcher/site-watcher.factor b/extra/site-watcher/site-watcher.factor
index 9784161075b2974e09a5679a6814b4c46b12feeb..3697546243982d8849fe6c447ff91a0952e33f75 100644 (file)
--- a/extra/site-watcher/site-watcher.factor
+++ b/extra/site-watcher/site-watcher.factor
@@ -3,13 +3,10 @@
 USING: db.sqlite db.types db.tuples kernel accessors
 db io.files io.files.temp locals io.directories continuations
 assocs sequences alarms namespaces http.client init calendar
-math math.parser smtp strings io combinators arrays
-generalizations combinators.smart prettyprint ;
+math math.parser smtp strings io combinators arrays debugger
+generalizations combinators.smart io.streams.string ;
 IN: site-watcher
 
-: ?unparse ( string/object -- string )
-    dup string? [ unparse ] unless ; inline
-
 : site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
 
 [ site-watcher-path delete-file ] ignore-errors
@@ -87,7 +84,7 @@ SYMBOL: running-site-watcher
     update-tuple ;
 
 : site-bad ( site error -- )
-    ?unparse >>error
+    [ error. ] with-string-writer >>error
     f set-notify-site-watchers
     now >>last-error
     update-tuple ;