From f852c30bcef530d18a474ab6ab8350a3ef93d563 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 30 Jan 2020 22:51:45 +0100
Subject: Once again compiles.

---
 module/vcomponent/load.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/load.scm')

diff --git a/module/vcomponent/load.scm b/module/vcomponent/load.scm
index 2e69d1f5..72200b32 100644
--- a/module/vcomponent/load.scm
+++ b/module/vcomponent/load.scm
@@ -3,6 +3,7 @@
   :use-module (util)
   :use-module (srfi srfi-1)
   :use-module (srfi srfi-19 alt)
+  :use-module (srfi srfi-19 alt util)
   :use-module (srfi srfi-41)
   :use-module (srfi srfi-41 util)
   :use-module (parameters)
@@ -19,10 +20,15 @@
   (let* ((calendars regular repeating (load-calendars* #:calendar-files calendar-files)))
     (values
      calendars
+     (list->stream regular)
+     #;
      (interleave-streams
       ev-time<?
       (cons (list->stream regular)
-            (map generate-recurrence-set repeating))))))
+            '()
+            ;; TODO reactivate this
+            #; (map generate-recurrence-set repeating)
+            )))))
 
 ;; Basic version, loads calendrs, sorts the events, and returns
 ;; regular and repeating events separated from each other.
-- 
cgit v1.2.3