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/datetime | |
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 '')
-rw-r--r-- | module/vcomponent/datetime.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm index 440ec5fd..a66ba38a 100644 --- a/module/vcomponent/datetime.scm +++ b/module/vcomponent/datetime.scm @@ -245,7 +245,7 @@ Event must have the DTSTART and DTEND protperty set." (prop component 'TZNAME) (zone-entry-format zone-entry) last-until (zone-entry-until zone-entry) last-offset new-timespec) - (add-child! vtimezone component)))] + (reparent! vtimezone component)))] [(zone-entry-rule zone-entry) => (lambda (rule-name) @@ -278,7 +278,7 @@ Event must have the DTSTART and DTEND protperty set." (awhen (rule->rrule rule) (set! (prop component 'RRULE) it)) - (add-child! vtimezone component))) + (reparent! vtimezone component))) ;; some of the rules might not apply to us since we only ;; started using that rule set later. It's also possible ;; that we stopped using a ruleset which continues existing. @@ -297,5 +297,5 @@ Event must have the DTSTART and DTEND protperty set." (prop component 'TZNAME) (zone-entry-format zone-entry) last-until (zone-entry-until zone-entry) last-offset (zone-entry-stdoff zone-entry)) - (add-child! vtimezone component))])) + (reparent! vtimezone component))])) vtimezone) |