diff options
Diffstat (limited to 'module/vcomponent/formats/xcal/parse.scm')
| -rw-r--r-- | module/vcomponent/formats/xcal/parse.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/vcomponent/formats/xcal/parse.scm b/module/vcomponent/formats/xcal/parse.scm index d108b11c..d0bc7bf2 100644 --- a/module/vcomponent/formats/xcal/parse.scm +++ b/module/vcomponent/formats/xcal/parse.scm @@ -129,8 +129,8 @@ [(geo) ; ((long 1) (lat 2)) (sxml-match (cons 'geo value) - [(geo (latitude ,x) (longitude ,y)) - ((@ (vcomponent geo) make-geo) x y)])] + [(geo (latitude ,y) (longitude ,x)) + ((@ (vcomponent geo) geo) y: y x: x)])] [else (scm-error 'misc-error "handle-value" "Unknown value type: ~s" |