diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-06 22:31:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-06 22:31:28 +0200 |
| commit | 96b9aa8a99d2b212a47c5da67d1e9d1f5c0ebfe0 (patch) | |
| tree | 2b5657bd8785d95f64c59109626d375b9596de9a | |
| parent | Popups more or less fixed, now with animations. (diff) | |
| download | calp-96b9aa8a99d2b212a47c5da67d1e9d1f5c0ebfe0.tar.gz calp-96b9aa8a99d2b212a47c5da67d1e9d1f5c0ebfe0.tar.xz | |
recurence BYMONTH now sets correct field.
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 00d9fcdb..9de8a4be 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -76,7 +76,7 @@ (BYSECOND (every (lambda (n) (<= 0 n 60)) nums) => (set! (bysecond o) nums)) (BYMINUTE (every (lambda (n) (<= 0 n 59)) nums) => (set! (byminute o) nums)) (BYHOUR (every (lambda (n) (<= 0 n 23)) nums) => (set! (byhour o) nums)) - (BYMONTH (every (lambda (n) (<= 1 n 12)) nums) => (set! (byweekno o) nums)) + (BYMONTH (every (lambda (n) (<= 1 n 12)) nums) => (set! (bymonth o) nums)) ;; May be negative (BYDAY (every (lambda (p) (memv (cdr p) weekdays)) days) => (set! (byday o) days)) |