diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 02:37:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 02:37:20 +0200 |
| commit | accd3cc7cf5c008cecabf5cea07799569a9bfbed (patch) | |
| tree | 83178645dd8f5e0ff9e91e7c0efcbb92e096bec0 /module/vcomponent/recurrence/generate.scm | |
| parent | Proof-read all the generated test sets. (diff) | |
| download | calp-accd3cc7cf5c008cecabf5cea07799569a9bfbed.tar.gz calp-accd3cc7cf5c008cecabf5cea07799569a9bfbed.tar.xz | |
Fix unless-clauses in make-extenders.
Diffstat (limited to '')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index acc45b33..0b49f96b 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -51,8 +51,8 @@ [('unless pred field) `(let ((yearday (,(by-proc 'yearday) ,rr)) (monthday (,(by-proc 'monthday) ,rr))) - ,(if pred #f - (it field)))] + (if ,pred #f + ,(self field)))] [field `(and=> (,(by-proc field) ,rr) ,(if extender? @@ -74,7 +74,8 @@ (define (all-extenders rrule) (make-extenders rrule - [YEARLY || month weekno yearday monthday (unless (or yearday monthday) day) + [YEARLY || month weekno yearday monthday + (unless (or yearday monthday) day) hour minute second] [MONTHLY || monthday (unless monthday day) hour minute second] [WEEKLY || day hour minute second] |