Cond-expand out threading code to load leap-second table dynamically when threads are disabled.

This commit is contained in:
Alex Shinn 2013-02-27 09:04:15 +09:00
parent 738cb3ac9a
commit d13aa7c4f2

View file

@ -16,7 +16,14 @@
(import (scheme read))
(import (scheme process-context))
(import (srfi 18))
(cond-expand
(threads
(import (srfi 18)))
(else
(begin
(define (make-thread thunk) #f)
(define (thread-start! th) #f)
(define (thread-sleep! secs) #f))))
(cond-expand
(chibi