diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 02:03:55 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 02:03:55 +0100 |
| commit | 3d7e1cf403961d03bb08af1332c8226c0b0cef6d (patch) | |
| tree | 2398875b38fca55c8e2e045e9e801efa1c93015b /module/vcomponent/recurrence | |
| parent | Documentation. (diff) | |
| download | calp-3d7e1cf403961d03bb08af1332c8226c0b0cef6d.tar.gz calp-3d7e1cf403961d03bb08af1332c8226c0b0cef6d.tar.xz | |
Freed datetime from its srfi-19 prison.
Diffstat (limited to 'module/vcomponent/recurrence')
| -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) |