diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-29 21:55:37 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-29 21:55:37 +0200 |
commit | 14a050dbebfaf53517c4cf1eed07974af41d2c1e (patch) | |
tree | b060b48ea4be9f6d9eb10e89e84b2b2a4ad8faf9 /module | |
parent | Add TODO to HTML. (diff) | |
download | calp-14a050dbebfaf53517c4cf1eed07974af41d2c1e.tar.gz calp-14a050dbebfaf53517c4cf1eed07974af41d2c1e.tar.xz |
Handle TZ-rule with minimum start.
Diffstat (limited to '')
-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 |