diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 03:22:04 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 05:40:51 +0100 |
| commit | 11ebbefb55127eee884a9080ece4aa201ad579c1 (patch) | |
| tree | 8b7ee9a89f9d901b06e23d186cecea5e8a61327c /module/vcomponent/formats/vdir/parse.scm | |
| parent | Start using (vcomponent create) in tests. (diff) | |
| download | calp-11ebbefb55127eee884a9080ece4aa201ad579c1.tar.gz calp-11ebbefb55127eee884a9080ece4aa201ad579c1.tar.xz | |
Change child/parent interface for vcomponent.
Diffstat (limited to 'module/vcomponent/formats/vdir/parse.scm')
| -rw-r--r-- | module/vcomponent/formats/vdir/parse.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm index 4e21d4d0..8fe69fc6 100644 --- a/module/vcomponent/formats/vdir/parse.scm +++ b/module/vcomponent/formats/vdir/parse.scm @@ -66,7 +66,7 @@ (case (length events) [(0) (warning (G_ "No events in component~%~a") (prop item '-X-HNH-FILENAME))] - [(1) (add-child! calendar (car events))] + [(1) (reparent! calendar (car events))] ;; two or more [else @@ -108,7 +108,7 @@ ;; we need to filter duplicates either way. (map (extract 'RECURRENCE-ID) (cons head rest)) (cons head rest)))) - (add-child! calendar head))]) + (reparent! calendar head))]) ;; return calendar) |