diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 12:49:53 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-18 12:49:53 +0200 |
commit | 7e7c3a9872c772c1ad5a3bbf2c8fd53b2c106a83 (patch) | |
tree | 35720e73031e16b16a2d8a9bc6dc20d4f43da4d9 /module/vcomponent/formats/ical | |
parent | Add tests for (text util). (diff) | |
download | calp-7e7c3a9872c772c1ad5a3bbf2c8fd53b2c106a83.tar.gz calp-7e7c3a9872c772c1ad5a3bbf2c8fd53b2c106a83.tar.xz |
Move vcomponent geo to new object system.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/formats/ical/parse.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/formats/ical/parse.scm b/module/vcomponent/formats/ical/parse.scm index 0433ba7c..c2a68469 100644 --- a/module/vcomponent/formats/ical/parse.scm +++ b/module/vcomponent/formats/ical/parse.scm @@ -226,8 +226,8 @@ ;; two semicolon sepparated floats (lambda (params value) (let ((left right (apply values (string-split value #\;)))) - (make-geo ((get-parser 'FLOAT) params left) - ((get-parser 'FLOAT) params right))))] + (geo y: ((get-parser 'FLOAT) params left) + x: ((get-parser 'FLOAT) params right))))] [(memv key '(RRULE)) (get-parser 'RECUR)] |