From 479efcdc339831d0b66c9eb818622ba76f2f4312 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 28 Dec 2018 23:40:55 +0800 Subject: [PATCH] don't start thread checking for leap seconds if env var is unspecified --- lib/scheme/time/tai-to-utc-offset.sld | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/lib/scheme/time/tai-to-utc-offset.sld b/lib/scheme/time/tai-to-utc-offset.sld index 7cbd0b68..516f374d 100644 --- a/lib/scheme/time/tai-to-utc-offset.sld +++ b/lib/scheme/time/tai-to-utc-offset.sld @@ -154,16 +154,18 @@ (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)))))) - (thread-start! - (make-thread - (lambda () - (let loop () - (thread-sleep! *cache-lifetime*) - (update-cache! (open-leap-seconds-list-port)) - (loop))) - "leap-second-update-poll")) + (when (get-environment-variable *file-name-environment-variable*) + (thread-start! + (make-thread + (lambda () + (let loop () + (thread-sleep! *cache-lifetime*) + (update-cache! (open-leap-seconds-list-port)) + (loop))) + "leap-second-update-poll"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -242,8 +244,8 @@ (let ((file-name (get-environment-variable *file-name-environment-variable*))) (if file-name - (open-input-file file-name) - #f)))))) + (open-input-file file-name) + #f)))))) (define (open-leap-seconds-list-port) (atomic-box-value *open-leap-seconds-list-port*))