blob: 27b2cbaef72c8f996df80a48f2c5193f93d67d74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(define-module (vcomponent geo)
:use-module (hnh 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)
|