diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-26 01:14:02 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-02-26 01:14:02 +0100 |
| commit | a6aa6ff2fffe298b90788a07059902d85e3a1391 (patch) | |
| tree | 61f87805e8c86e1062be512f01ebf21909b65971 /vcalendar.scm | |
| parent | Start on propper vcalendar scheme library. (diff) | |
| download | calp-a6aa6ff2fffe298b90788a07059902d85e3a1391.tar.gz calp-a6aa6ff2fffe298b90788a07059902d85e3a1391.tar.xz | |
Add %vcomponent-parent.
Diffstat (limited to 'vcalendar.scm')
| -rw-r--r-- | vcalendar.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/vcalendar.scm b/vcalendar.scm index b80e40e6..c6aee02c 100644 --- a/vcalendar.scm +++ b/vcalendar.scm @@ -18,6 +18,9 @@ ;; Also removes the abstract ROOT component, but also ;; merges all VCALENDAR's children into the first ;; VCALENDAR, and return that VCALENDAR. + ;; + ;; TODO the other VCALENDAR components might not get thrown away, + ;; this since I protect them from the GC in the C code. (reduce (lambda (cal accum) (for-each (cut %vcomponent-push-child! accum <>) (%vcomponent-children cal)) @@ -28,7 +31,7 @@ (define set-attr! %vcomponent-set-attribute!) (define get-attr %vcomponent-get-attribute) (define type %vcomponent-type) - +(define parent %vcomponent-parent) (define push-child! %vcomponent-push-child!) (define (transform-attr! ev field transformer) |