From 23885b01d3e271db545139a72db9aed8644da999 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 3 Aug 2020 00:43:29 +0200
Subject: Minor fixups.

---
 module/vcomponent/instance.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/module/vcomponent/instance.scm b/module/vcomponent/instance.scm
index 555395cf..575aeda0 100644
--- a/module/vcomponent/instance.scm
+++ b/module/vcomponent/instance.scm
@@ -54,8 +54,8 @@
   )
 
 
-(define-method (get-event-by-uid (this <events>) uid)
-  (hash-ref (slot-ref this 'uid-map) uid))
+(define (get-event-by-uid uid)
+  (hash-ref (slot-ref global-event-object 'uid-map) uid))
 
 
 
@@ -113,9 +113,7 @@
   (slot-set! this 'events
              (cons event (slot-ref this 'events)))
 
-  (let* ((slot-name
-         (if (repeating? event)
-             'repeating-events 'fixed-events))
+  (let* ((slot-name (if (repeating? event) 'repeating-events 'fixed-events))
          (events (slot-ref this slot-name)))
     (slot-set! this slot-name (insert-ordered event events ev-time<?)))
 
@@ -153,5 +151,8 @@
              #f))
 
 
+
+;; this is loaded on compile, meaning that Guile's auto-compiler may
+;; evaluate this to early.
 (define-once global-event-object
   (make <events> calendar-files: (get-config 'calendar-files)))
-- 
cgit v1.2.3