-! 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
-\r
-SYMBOL: time\r
-\r
-: (time-thread) ( -- )\r
- now time get set-model\r
- 1 seconds sleep (time-thread) ;\r
-\r
-: time-thread ( -- )\r
- [\r
- init-namespaces\r
- (time-thread)\r
- ] "Time model update" spawn drop ;\r
-\r
-[\r
- f <model> time set-global\r
- time-thread\r
-] "calendar.model" add-startup-hook\r
+! Copyright (C) 2008, 2010 Slava Pestov
+! See http://factorcode.org/license.txt for BSD license.
+USING: calendar namespaces models threads kernel init ;
+IN: calendar.model
+
+SYMBOL: time
+
+: (time-thread) ( -- )
+ now time get set-model
+ 1 seconds sleep (time-thread) ;
+
+: time-thread ( -- )
+ [
+ init-namespaces
+ (time-thread)
+ ] "Time model update" spawn drop ;
+
+[
+ f <model> time set-global
+ time-thread
+] "calendar.model" add-startup-hook