From d13aa7c4f261650b1880b10926f1bc87cc421ee6 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 27 Feb 2013 09:04:15 +0900 Subject: [PATCH] Cond-expand out threading code to load leap-second table dynamically when threads are disabled. --- lib/scheme/time/tai-to-utc-offset.sld | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/scheme/time/tai-to-utc-offset.sld b/lib/scheme/time/tai-to-utc-offset.sld index f63a0114..39242b26 100644 --- a/lib/scheme/time/tai-to-utc-offset.sld +++ b/lib/scheme/time/tai-to-utc-offset.sld @@ -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