diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 00:43:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 00:43:29 +0200 |
commit | 23885b01d3e271db545139a72db9aed8644da999 (patch) | |
tree | 6b6c15b2f9937cc893d4c38f9bcb74bc5c27b687 /module/vcomponent | |
parent | Module cleanup. (diff) | |
download | calp-23885b01d3e271db545139a72db9aed8644da999.tar.gz calp-23885b01d3e271db545139a72db9aed8644da999.tar.xz |
Minor fixups.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/instance.scm | 11 |
1 files changed, 6 insertions, 5 deletions
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))) |