From 2601ffd19e9622e98792ce2b199717c387674283 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 16 Oct 2022 22:16:23 +0200 Subject: Fix errors when submitting events. --- module/vcomponent/util/instance/methods.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index f6c56cb9..28b664c6 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -177,10 +177,11 @@ (cond [(get-event-by-uid this (prop event 'UID)) => (lambda (old-event) + (define old-calendar (parent old-event)) ;; remove old instance of event from runtime (remove-event this old-event) - (remove-child! (parent old-event) old-event) + (remove-child! old-calendar old-event) ;; Add new event to runtime, ;; MUST be done after since the two events SHOULD share UID. @@ -198,8 +199,8 @@ (unless ((@ (vcomponent formats vdir save-delete) save-event) event) (throw 'misc-error (G_ "Saving event to disk failed."))) - - (unless (eq? calendar (parent old-event)) + #; + (unless (eq? calendar old-calendar) ;; change to a new calendar (format (current-error-port) (G_ "Unlinking old event from ~a~%") -- cgit v1.2.3