diff options
Diffstat (limited to 'module/main.scm')
| -rwxr-xr-x | module/main.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/main.scm b/module/main.scm index 30fd4542..e29ae2c0 100755 --- a/module/main.scm +++ b/module/main.scm @@ -128,8 +128,9 @@ (define events (concatenate (map (cut children <> 'VEVENT) calendars))) (let* ((repeating regular (partition repeating? events))) - (sort*! repeating time<? (extract 'DTSTART)) - (sort*! regular time<? (extract 'DTSTART)) + + (set! repeating (sort*! repeating time<? (extract 'DTSTART))) + (set! regular (sort*! regular time<? (extract 'DTSTART))) (let ((repeating (interleave-streams ev-time<? (map generate-recurrence-set repeating)))) |