From 8ecdeab03f390703c89b45bbbcc08fa4d42c9735 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 18 Sep 2020 14:40:35 +0200
Subject: Add an assert.

---
 module/calp/html/view/calendar/shared.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm
index fb5eace5..badea7b9 100644
--- a/module/calp/html/view/calendar/shared.scm
+++ b/module/calp/html/view/calendar/shared.scm
@@ -1,5 +1,6 @@
 (define-module (calp html view calendar shared)
   :use-module (calp util)
+  :use-module ((calp util exceptions) :select (assert))
   :use-module (srfi srfi-1)
   :use-module (vcomponent)
   :use-module ((vcomponent datetime)
@@ -32,6 +33,8 @@
   ;; only find  events which  also overlaps  the
   ;; smaller event.
 
+  (assert event-length-key)
+
   ;; @var{x} is how for left in the container we are.
   (let inner ((x 0)
               (tree (make-tree overlapping?
-- 
cgit v1.2.3