diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:39:32 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:39:32 +0200 |
| commit | b36470814899915cf1846f15aec0098754cf06ed (patch) | |
| tree | e053344c22ca78a4d9249cd04f6d4091491b0241 /module/vcalendar/recurrence/parse.scm | |
| parent | Add catch-multiple. (diff) | |
| download | calp-b36470814899915cf1846f15aec0098754cf06ed.tar.gz calp-b36470814899915cf1846f15aec0098754cf06ed.tar.xz | |
Change parse-datetime back to single return.
Diffstat (limited to 'module/vcalendar/recurrence/parse.scm')
| -rw-r--r-- | module/vcalendar/recurrence/parse.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/module/vcalendar/recurrence/parse.scm b/module/vcalendar/recurrence/parse.scm index de5d7e7c..983c12b1 100644 --- a/module/vcalendar/recurrence/parse.scm +++ b/module/vcalendar/recurrence/parse.scm @@ -87,9 +87,7 @@ (let* (((key val) kv) ;; Lazy fields for the poor man. (symb (lambda () (string->symbol val))) - (date (lambda () - (let* ((date type (parse-datetime val))) - (date->time-utc date)))) + (date (lambda () (date->time-utc (parse-datetime val)))) (days (lambda () (map parse-day-spec (string-split val #\,)))) (num (lambda () (string->number val))) (nums (lambda () (string->number-list val #\,)))) |