Experimenting with a basic loader structure

engine/loader.scm

@@ -0,0 +1,17 @@
+(module (engine loader)
+(import (scheme)
+	(chicken base)
+	(chicken process-context)
+	(engine core)
+	(engine math)
+	(engine components core)
+	(engine drawing)
+	(engine input)
+	(engine scene)
+	raylib
+	(srfi 1)
+	(srfi 99))
+
+
+(load (last (command-line-arguments)))
+)

samples/tic-tac-toe.scm

@@ -1,17 +1,3 @@
-(module (tic-tac-toe) ()
-(import scheme
-	(chicken base)
-	(chicken random)
-	(engine core)
-	(engine math)
-	(engine components core)
-	(engine drawing)
-	(engine input)
-	(engine scene)
-	raylib
-	(srfi 1)
-	(srfi 99))
-
 (register-event-bus 'turn-change)
 
 (define draw-text-entities
@@ -380,4 +366,4 @@
 
 ((main-menu))
 (create-window)
-)
+