dwmstatus.scm

commit 3ff6dfb649d7d294b8d6f9d4256503cc0e3126c3
parent 69805e325c7ed315d1a527e3182ddaf43022173c
Author: zavok <an2qzavok@gmail.com>
Date:   Thu, 25 Feb 2016 04:03:34 +0300

forgot to throw away modules

Diffstat:
M
dwmstatus.scm
 | 
4
+---

1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/dwmstatus.scm b/dwmstatus.scm
@@ -1,8 +1,6 @@
 #! /bin/guile -s
 !#
 
-(use-modules (ice-9 threads))
-(use-modules (ice-9 format))
 (use-modules (rnrs bytevectors))
 
 (define Time "")
@@ -13,7 +11,7 @@
     (system* "xsetroot" "-name" (string-append Message Time))))
 
 (define TimeThread
-  (make-thread
+  (call-with-new-thread
     (lambda ()
       (while #t
 	     (set! Time (strftime "%F %T" (localtime (current-time))))