module/entry-points/benchmark.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

(define-module (entry-points benchmark)
  :export (main)

  :use-module (ice-9 getopt-long)
  :use-module (util)
  :use-module (util app)
  )


(define opt-spec
  '())

(define (main args)
  (define opts (getopt-long args opt-spec))

  (write (getf 'calendars app: (current-app)))
)