diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 23:50:09 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-22 23:50:09 +0100 |
commit | 2c521bf61fffad164e06ab49cb8568bfb8755f12 (patch) | |
tree | 46306534ca0683473267878fa9d3aba9fc4c3e76 /module/vcalendar | |
parent | Fix recur-event-stream. (diff) | |
download | calp-2c521bf61fffad164e06ab49cb8568bfb8755f12.tar.gz calp-2c521bf61fffad164e06ab49cb8568bfb8755f12.tar.xz |
Minor cleanup.
Diffstat (limited to 'module/vcalendar')
-rw-r--r-- | module/vcalendar/recurrence/generate.scm | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/module/vcalendar/recurrence/generate.scm b/module/vcalendar/recurrence/generate.scm index e2b3eb67..f585843f 100644 --- a/module/vcalendar/recurrence/generate.scm +++ b/module/vcalendar/recurrence/generate.scm @@ -1,17 +1,12 @@ (define-module (vcalendar recurrence generate) - ;; #:use-module (srfi srfi-1) - ;; #:use-module (srfi srfi-9 gnu) ; Records #:use-module (srfi srfi-19) ; Datetime #:use-module (srfi srfi-19 util) - #:use-module (srfi srfi-26) ; Cut #:use-module (srfi srfi-41) ; Streams - ;; #:use-module (ice-9 control) ; call-with-escape-continuation #:use-module (ice-9 match) - #:use-module (vcalendar) - #:use-module (vcalendar datetime) - #:use-module (util) + #:use-module (util) + #:use-module (vcalendar) #:use-module (vcalendar recurrence internal) #:use-module (vcalendar recurrence parse) @@ -96,12 +91,11 @@ ;; Event x Rule → next (Event, Rule) (match-lambda ((e r) - (list - (next-event e r) - (if (count r) - ;; Note that this doesn't modify, since r is immutable. - (mod! (count r) 1-) - r )))) + (list (next-event e r) + (if (count r) + ;; Note that this doesn't modify, since r is immutable. + (mod! (count r) 1-) + r )))) ;; Seed (list event rule-obj))) |