blob: eff4c261f4212acfbbbad76cd6591a1a3b15eb83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(define-module (entry-points benchmark)
:export (main)
:use-module (ice-9 getopt-long)
:use-module (util)
:use-module (vcomponent)
:use-module (parameters)
)
(define opt-spec
'((file (value #t) (single-char #\f))))
(define (main args)
(define opts (getopt-long args opt-spec))
(load-calendars* calendar-files: (cond [(option-ref opts 'file #f) => list]
[else (calendar-files)])))
|