diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/recurrence/generate.scm | 5 | ||||
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 2 | ||||
-rw-r--r-- | module/vcomponent/recurrence/parse.scm | 4 |
3 files changed, 5 insertions, 6 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index f51759e0..f786a586 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -1,8 +1,7 @@ (define-module (vcomponent recurrence generate) #:use-module ((srfi srfi-1) :select (find)) - #:use-module (srfi srfi-19 alt) ; Datetime - #:use-module (srfi srfi-19 alt util) - ;; #:use-module (srfi srfi-19 setters) + #:use-module (datetime) + #:use-module (datetime util) #:use-module (srfi srfi-26) ; Cut #:use-module (srfi srfi-41) ; Streams #:use-module (ice-9 match) diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index 50c44a60..07fc4cf5 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -38,7 +38,7 @@ (display (case field ;; TODO check over date/time/datetime here - ((until) ((@ (srfi srfi-19 alt util) time->string) it)) + ((until) ((@ (datetime util) time->string) it)) (else it)) port))) (display ">" port)))))) diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index a4724918..a93b81df 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -4,8 +4,8 @@ #:export (parse-recurrence-rule) #:use-module (srfi srfi-1) - #:use-module (srfi srfi-19 alt) ; Datetime - #:use-module (srfi srfi-19 alt util) + #:use-module (datetime) + #:use-module (datetime util) #:use-module (srfi srfi-26) #:use-module (vcomponent recurrence internal) #:use-module (util) |