diff options
Diffstat (limited to '')
-rw-r--r-- | module/datetime.scm | 5 | ||||
-rw-r--r-- | module/datetime/instance.scm | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index 478fc479..adff669a 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -48,11 +48,10 @@ ;;; Configuration -(define-public week-start (make-parameter sun)) +;; (define-public week-start (make-parameter sun)) (define-config week-start sun description: "First day of week" - pre: (ensure (lambda (x) (<= sun x sat))) - post: week-start) + pre: (ensure (lambda (x) (<= sun x sat)))) ;;; RECORD TYPES diff --git a/module/datetime/instance.scm b/module/datetime/instance.scm index 2b060204..d9a304b2 100644 --- a/module/datetime/instance.scm +++ b/module/datetime/instance.scm @@ -23,7 +23,7 @@ (label self (case-lambda (() - (define tz-list (get-config 'tz-list)) + (define tz-list (tz-list)) (if (null? tz-list) (warning (_ "Default zoneinfo only available when tz-dir and tz-list are configured")) (self tz-list))) |