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