diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/geo.scm | 11 | ||||
-rw-r--r-- | module/vcomponent/parse/component.scm | 6 |
2 files changed, 12 insertions, 5 deletions
diff --git a/module/vcomponent/geo.scm b/module/vcomponent/geo.scm new file mode 100644 index 00000000..2a343ed9 --- /dev/null +++ b/module/vcomponent/geo.scm @@ -0,0 +1,11 @@ +(define-module (vcomponent geo) + :use-module (util) + :use-module (srfi srfi-9 gnu)) + +(define-immutable-record-type <geographical-position> + (make-geo latitude longitude) + geo-pos? + (latitude geo-latitude) + (longitude geo-longitude)) + +(export make-geo geo-pos? geo-latitude geo-longitude) diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index f7dbdf71..6f522e8f 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -8,6 +8,7 @@ :use-module (srfi srfi-9 gnu) :use-module (srfi srfi-26) :use-module (vcomponent parse types) + :use-module (vcomponent geo) ) (define-public (parse-calendar port) @@ -20,11 +21,6 @@ (file get-file) (line get-line)) -(define-immutable-record-type <geographical-position> - (make-geo latitude longitude) - geo-pos? - (latitude geo-latitude) - (longitude geo-longitude)) ;; port → (list <line>) (define (read-file port) |