diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-29 15:39:10 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-29 15:39:10 +0100 |
commit | e5322e2beb929d43b47bb7d899be5e0bddd6a49e (patch) | |
tree | 04dd890ae974dd1e990d350f63783ef334223a91 /module/main.scm | |
parent | Replace recur loop with while. (diff) | |
download | calp-e5322e2beb929d43b47bb7d899be5e0bddd6a49e.tar.gz calp-e5322e2beb929d43b47bb7d899be5e0bddd6a49e.tar.xz |
Minor whitespace fixup.
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/main.scm b/module/main.scm index 769796c5..e7766b8e 100755 --- a/module/main.scm +++ b/module/main.scm @@ -131,14 +131,13 @@ (load "config.scm") (define (main args) - (define calendars (map make-vcomponent calendar-files)) (define events (concatenate (map (cut children <> 'VEVENT) calendars))) (let* ((repeating regular (partition repeating? events))) (set! repeating (sort*! repeating time<? (extract 'DTSTART))) - (set! regular (sort*! regular time<? (extract 'DTSTART))) + (set! regular (sort*! regular time<? (extract 'DTSTART))) (let ((repeating (interleave-streams ev-time<? (map generate-recurrence-set repeating)))) |