diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-05-11 21:21:47 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-05-11 21:21:47 +0200 |
commit | fcb17ff75761600c7f4db5653ac172cada456afc (patch) | |
tree | a0b7eea3ed8c62d5e03b5a0973260d5e25344509 /module/vcomponent/formats/vdir/save-delete.scm | |
parent | Add procedure remove-child! (diff) | |
download | calp-fcb17ff75761600c7f4db5653ac172cada456afc.tar.gz calp-fcb17ff75761600c7f4db5653ac172cada456afc.tar.xz |
Add remove-child! at appropriate places.
Diffstat (limited to 'module/vcomponent/formats/vdir/save-delete.scm')
-rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |