blob: 35e0ee1cd2da4938391da4145bc15596e37b30a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (vcomponent formats sxcal)
:use-module ((vcomponent formats xcal parse)
:select (sxcal->vcomponent))
:use-module ((vcomponent formats xcal output)
:select (vcomponent->sxcal))
:export (serialize deserialize))
(define (serialize component port)
(write (serialize/object component) port))
(define (serialize/object component)
(vcomponent->sxcal component))
(define (deserialize port)
(sxcal->vcomponent port))
|