diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-24 21:11:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-24 21:11:16 +0200 |
| commit | 987b1e0e574007b272b04605f3b57d420bde4fb4 (patch) | |
| tree | 003c430e6a46cbcff09f60d9783f861506115de8 /module/datetime | |
| parent | Add tests for href stuff. (diff) | |
| parent | Document type and object system. (diff) | |
| download | calp-987b1e0e574007b272b04605f3b57d420bde4fb4.tar.gz calp-987b1e0e574007b272b04605f3b57d420bde4fb4.tar.xz | |
Merge remote-tracking branch 'origin/new-object-system' into datarewrite-structures
Diffstat (limited to 'module/datetime')
| -rw-r--r-- | module/datetime/zic.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm index 470f6c07..acfb17a8 100644 --- a/module/datetime/zic.scm +++ b/module/datetime/zic.scm @@ -342,17 +342,17 @@ (datetime date: (match (rule-on rule) - ((? number? on) (set (day d) on)) + ((? number? on) (day d on)) (('last n) (iterate (lambda (d) (date- d (date day: 1))) (lambda (d) (eqv? n (week-day d))) - (set (day d) (days-in-month d)))) + (day d (days-in-month d)))) (((? (lambda (x) (memv x '(< >))) <>) wday base-day) (iterate (lambda (d) ((if (eq? '< <>) date- date+) d (date day: 1))) (lambda (d) (eqv? wday (week-day d))) - (set (day d) base-day)))) + (day d base-day)))) tz: (case (timespec-type (rule-at rule)) ((#\w) #f) ((#\s) (warning (G_ "what even is \"Standard time\"‽")) #f) |