diff options
Diffstat (limited to 'module/datetime')
-rw-r--r-- | module/datetime/zic.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm index 52457ada..1c81b706 100644 --- a/module/datetime/zic.scm +++ b/module/datetime/zic.scm @@ -377,7 +377,8 @@ ;; group rules and put in map (awhen (assoc-ref groups 'rule) (for-each (lambda (group) - (hashq-set! rules (car group) (sort* (cadr group) < rule-from))) + (hashq-set! rules (car group) (sort* (cadr group) (lambda (a b) (if (eq? 'minimum) #t (< a b))) + rule-from))) (group-by rule-name (car it)))) ;; put zones in map |