blob: 9261076fbf87312b24bf24c1b3f8b6cf64607169 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(define-module (vcomponent geo)
:use-module (hnh util)
:use-module (srfi srfi-9 gnu)
:export (make-geo geo-pos? geo-latitude geo-longitude))
(define-immutable-record-type <geographical-position>
(make-geo latitude longitude)
geo-pos?
(latitude geo-latitude)
(longitude geo-longitude))
|