From fcb17ff75761600c7f4db5653ac172cada456afc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 11 May 2022 21:21:47 +0200 Subject: Add remove-child! at appropriate places. --- module/vcomponent/formats/vdir/save-delete.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'module/vcomponent/formats') diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index 82f678da..e020a211 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -59,4 +59,5 @@ (_ "Calendar is of type ~s")) (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) - (delete-file (prop event '-X-HNH-FILENAME))) + (delete-file (prop event '-X-HNH-FILENAME)) + (remove-child! parent event)) -- cgit v1.2.3