diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:21:41 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:23:04 +0100 |
| commit | e822f7b81245c919eda8bd8ad4b482df075e0508 (patch) | |
| tree | 3024a9a1a80e5c9ffd6d187a028c783dc4b7abbd /module/vcomponent/recurrence/parse.scm | |
| parent | Extend define-many to allow a custom define procedure. (diff) | |
| download | calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.gz calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.xz | |
Start of new date structures.
Diffstat (limited to 'module/vcomponent/recurrence/parse.scm')
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 680a818e..f532987a 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -4,10 +4,9 @@ #:export (parse-recurrence-rule) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-19) ; Datetime - #:use-module (srfi srfi-19 util) + #:use-module (srfi srfi-19 alt) ; Datetime + #:use-module (srfi srfi-19 alt util) #:use-module (srfi srfi-26) - #:use-module ((vcomponent datetime) #:select (parse-datetime)) #:use-module (vcomponent recurrence internal) #:use-module (util) #:use-module (ice-9 match)) @@ -50,7 +49,7 @@ (let* (((key val) kv)) (let-lazy ((symb (string->symbol val)) - (date (date->time-utc (parse-datetime val))) + (date (parse-datetime val)) (days (map parse-day-spec (string-split val #\,))) (num (string->number val)) (nums (map string->number (string-split val #\,)))) |