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

Naming the leap second polling thread.

Browse source
This commit is contained in:
Alex Shinn 2015-01-22 23:12:49 +09:00
parent c2fe35e5d6
commit a2600da6b9
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -21,7 +21,7 @@
(import (srfi 18))) (import (srfi 18)))
(else (else
(begin (begin
(define (make-thread thunk) #f) (define (make-thread thunk name) #f)
(define (thread-start! th) #f) (define (thread-start! th) #f)
(define (thread-sleep! secs) #f)))) (define (thread-sleep! secs) #f))))
@ -162,7 +162,8 @@
(let loop () (let loop ()
(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"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;