diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
| commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
| tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /module/vcomponent/recurrence/internal.scm | |
| parent | Update recurrence generate to new date obj. (diff) | |
| download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz | |
Once again compiles.
Diffstat (limited to 'module/vcomponent/recurrence/internal.scm')
| -rw-r--r-- | module/vcomponent/recurrence/internal.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index 12cf7a7b..50c44a60 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -37,7 +37,8 @@ (display "=" port) (display (case field - ((until) ((@ (srfi srfi-19 util) time->string) it)) + ;; TODO check over date/time/datetime here + ((until) ((@ (srfi srfi-19 alt util) time->string) it)) (else it)) port))) (display ">" port)))))) |