diff options
Diffstat (limited to 'module/vcomponent/recurrence')
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index 33818440..b15ce90e 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -66,15 +66,7 @@ (display "#<<recur-rule>" port) (for field in (record-type-fields <recur-rule>) (awhen (get field) - (display " " port) - (display field port) - (display "=" port) - (display - (case field - ;; TODO check over date/time/datetime here - ;; ((until) ((@ (datetime util) time->string) it)) - (else it)) - port))) + (format port " ~a=~a" field it))) (display ">" port))))) |