suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Daemonize signal-watcher.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-12-04 12:21:12 -05:00
parent 2d55b78b83
commit 196c227800
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/signals.rkt
View File

@ -5,6 +5,7 @@
start-restart-signal-watcher) start-restart-signal-watcher)
(require reloadable) (require reloadable)
(require "daemon.rkt")
(define (poll-signal signal-file-name message handler) (define (poll-signal signal-file-name message handler)
(when (file-exists? signal-file-name) (when (file-exists? signal-file-name)
@ -13,7 +14,8 @@
(handler))) (handler)))
(define (start-restart-signal-watcher) (define (start-restart-signal-watcher)
(thread (daemon-thread
'restart-signal-watcher
(lambda () (lambda ()
(let loop () (let loop ()
(flush-output) ;; Somewhat gratuitous; help ensure timely stdout logging (flush-output) ;; Somewhat gratuitous; help ensure timely stdout logging