From 196c2278006df65ebe848f34f7d4179b6218eb7a Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 4 Dec 2014 12:21:12 -0500
Subject: [PATCH] Daemonize signal-watcher.

---
 src/signals.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/signals.rkt b/src/signals.rkt
index 7396a78..a2a2e57 100644
--- a/src/signals.rkt
+++ b/src/signals.rkt
@@ -5,6 +5,7 @@
 	 start-restart-signal-watcher)
 
 (require reloadable)
+(require "daemon.rkt")
 
 (define (poll-signal signal-file-name message handler)
   (when (file-exists? signal-file-name)
@@ -13,7 +14,8 @@
     (handler)))
 
 (define (start-restart-signal-watcher)
-  (thread
+  (daemon-thread
+   'restart-signal-watcher
    (lambda ()
      (let loop ()
        (flush-output) ;; Somewhat gratuitous; help ensure timely stdout logging