diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 17:06:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-19 17:06:58 +0200 |
| commit | c00650b222887ddb900b048f48bd66d0420ee746 (patch) | |
| tree | 085b7b19dcd9a5eb3e7ea1b7db094d1bae98c9d2 /module/vcomponent/parse | |
| parent | Recurrence rules now always parsed. (diff) | |
| download | calp-c00650b222887ddb900b048f48bd66d0420ee746.tar.gz calp-c00650b222887ddb900b048f48bd66d0420ee746.tar.xz | |
minor cleanup.
Diffstat (limited to 'module/vcomponent/parse')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index f8677a19..c2d297fd 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -149,7 +149,7 @@ (define key (vline-key vline)) ;; Which types are allowed to be given multiple times - (if (memv (vline-key vline) '(EXDATE ATTENDEE)) + (if (memv key '(EXDATE ATTENDEE)) (aif (attr* (car stack) key) (set! (attr* (car stack) key) (cons vline it)) (set! (attr* (car stack) key) (list vline))) |