diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-09 11:47:50 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-09 11:47:50 +0100 |
| commit | 9ae3d41443d59c253257f637b03d7ed5854ad675 (patch) | |
| tree | adb562fede1258928fe02af9a04f56a0df74cf56 /vcalendar.scm | |
| parent | Extend let* macro with SRFI-71. (diff) | |
| download | calp-9ae3d41443d59c253257f637b03d7ed5854ad675.tar.gz calp-9ae3d41443d59c253257f637b03d7ed5854ad675.tar.xz | |
Minor cleanups.
Diffstat (limited to 'vcalendar.scm')
| -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) |