don't start thread checking for leap seconds if env var is unspecified

This commit is contained in:
Alex Shinn 2018-12-28 23:40:55 +08:00
parent ec345fe370
commit 479efcdc33

View file

@ -154,8 +154,10 @@
(lambda ()
(let ((port (open-port)))
(when port
(set-cache! (make-cache-from-port port)))))))
(set-cache! (make-cache-from-port port))
(close-input-port port))))))
(when (get-environment-variable *file-name-environment-variable*)
(thread-start!
(make-thread
(lambda ()
@ -163,7 +165,7 @@
(thread-sleep! *cache-lifetime*)
(update-cache! (open-leap-seconds-list-port))
(loop)))
"leap-second-update-poll"))
"leap-second-update-poll")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;