diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-25 16:18:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:17:22 +0200 |
| commit | b22827a7977d2e8b11d30f9692d9da47ab8da738 (patch) | |
| tree | ac082df866009dacf5aea607bcefddbbbcd1dc83 /module/datetime/zic.scm | |
| parent | Add tests for lenses. (diff) | |
| download | calp-b22827a7977d2e8b11d30f9692d9da47ab8da738.tar.gz calp-b22827a7977d2e8b11d30f9692d9da47ab8da738.tar.xz | |
Change date/time interface.
Diffstat (limited to 'module/datetime/zic.scm')
| -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 66c0ba06..1c9b34ee 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 (_ "what even is \"Standard time\"‽")) #f) |