blob: 2a343ed9a1cc6c95c4d9ebc4c79796dc53caac30 (
plain)
1
2
3
4
5
6
7
8
9
10
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)
|
