Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Alex Shinn 2018-12-28 23:40:55 +08:00
parent ec345fe370
commit 479efcdc33
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/scheme/time/tai-to-utc-offset.sld
View file

@ -154,8 +154,10 @@
(lambda () (lambda ()
(let ((port (open-port))) (let ((port (open-port)))
(when 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! (thread-start!
(make-thread (make-thread
(lambda () (lambda ()
@ -163,7 +165,7 @@
(thread-sleep! *cache-lifetime*) (thread-sleep! *cache-lifetime*)
(update-cache! (open-leap-seconds-list-port)) (update-cache! (open-leap-seconds-list-port))
(loop))) (loop)))
"leap-second-update-poll")) "leap-second-update-poll")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;