calendar.model, tools.errors.model: re-initialize models on startup

diff --git a/basis/calendar/model/model.factor b/basis/calendar/model/model.factor
index 38ad986952c224800a29ca4e4b58ca1c4a94fb9e..305c31c385e2d4f90db3ff47b13ebed027aece6e 100644 (file)
--- a/basis/calendar/model/model.factor
+++ b/basis/calendar/model/model.factor
@@ -1,4 +1,4 @@
-! Copyright (C) 2008 Slava Pestov\r
+! Copyright (C) 2008, 2010 Slava Pestov\r
 ! See http://factorcode.org/license.txt for BSD license.\r
 USING: calendar namespaces models threads kernel init ;\r
 IN: calendar.model\r
@@ -15,5 +15,7 @@ SYMBOL: time
         (time-thread)\r
     ] "Time model update" spawn drop ;\r
 \r
-f <model> time set-global\r
-[ time-thread ] "calendar.model" add-startup-hook\r
+[\r
+    f <model> time set-global\r
+    time-thread\r
+] "calendar.model" add-startup-hook\r

diff --git a/basis/tools/errors/model/model.factor b/basis/tools/errors/model/model.factor
index b41d236fd7b89a36e0bf5bf2640f82cb43250776..09748ccbefc3494cf440b24b367932264d9dd758 100644 (file)
--- a/basis/tools/errors/model/model.factor
+++ b/basis/tools/errors/model/model.factor
@@ -1,4 +1,4 @@
-! Copyright (C) 2009 Slava Pestov.
+! Copyright (C) 2009, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: models source-files.errors namespaces models.delay init
 kernel calendar ;
@@ -6,13 +6,14 @@ IN: tools.errors.model
 
 SYMBOLS: (error-list-model) error-list-model ;
 
-(error-list-model) [ f <model> ] initialize
-
-error-list-model [ (error-list-model) get-global 100 milliseconds <delay> ] initialize
-
 SINGLETON: updater
 
-M: updater errors-changed drop f (error-list-model) get-global set-model ;
+M: updater errors-changed
+    drop f (error-list-model) get-global set-model ;
 
-[ updater add-error-observer ] "ui.tools.error-list" add-startup-hook
+[
+    f <model> (error-list-model) set-global
+    (error-list-model) get-global 100 milliseconds <delay> error-list-model set-global
+    updater add-error-observer
+] "ui.tools.error-list" add-startup-hook