12 lines
209 B
Scheme
12 lines
209 B
Scheme
(define-module (petri)
|
|
:use-module (agar core)
|
|
:use-module (agar gui)
|
|
:export (petri-app))
|
|
|
|
(define-syntax-rule (petri-app exp ...)
|
|
(begin
|
|
(init-core)
|
|
(init-gui)
|
|
exp ...
|
|
(event-loop)))
|