init

petri.scm

@@ -0,0 +1,11 @@
+(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)))