From 2c521bf61fffad164e06ab49cb8568bfb8755f12 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 Mar 2019 23:50:09 +0100 Subject: Minor cleanup. --- module/vcalendar/recurrence/generate.scm | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) (limited to 'module/vcalendar/recurrence/generate.scm') 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))) -- cgit v1.2.3