diff options
Diffstat (limited to '')
-rw-r--r-- | vcalendar.scm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/vcalendar.scm b/vcalendar.scm index c664c1aa..143d9e79 100644 --- a/vcalendar.scm +++ b/vcalendar.scm @@ -9,8 +9,8 @@ "Parse all start times into scheme date objects." (for-each-in (children cal 'VEVENT) (lambda (ev) - (transform-attr! ev "DTSTART" parse-datetime) - (transform-attr! ev "DTEND" parse-datetime))) + (mod! (attr ev "DTSTART") parse-datetime) + (mod! (attr ev "DTEND") parse-datetime))) cal) (define-public (make-vcomponent path) @@ -57,15 +57,6 @@ (define-public push-child! %vcomponent-push-child!) (define-public attributes %vcomponent-attribute-list) -(define-public (transform-attr! ev field transformer) - "Apply transformer to field in ev, and store the result back." - ;; TODO make transform C primitive. - ;; Halfing the lookups. - (set! (attr ev field) - (transformer (attr ev field)))) - -;; { (attr ev field) := (transformer (attr ev field)) } - (define-public copy-vcomponent %vcomponent-shallow-copy) (define-public (search cal term) |