Frame loop and we need raylib now

engine/core.scm

@@ -2,7 +2,7 @@
 (import scheme
 	(chicken base)
 	(chicken module)
-	;; raylib
+	raylib
 	(srfi 1)
 	(srfi 69)
 	(srfi 99)
@@ -221,8 +221,16 @@
   (queue-del-system name)
   name)
 
-;; System execution
+;; Execute a single system
 ;; TODO: Implement
+(define (execute-system system)
+  (assert (system? system))
+  #t)
+
+(define (execute-systems)
+  (for-each
+   execute-system
+   systems))
 
 ;; Event buses hash table
 (define event-buses (make-hash-table))
@@ -289,4 +297,9 @@
 	  (hash-table-delete! event-bus action)
 	  event)
 	#f)))
+
+(define (frame-loop)
+  (resolve-entity-queue)
+  (resolve-system-queue)
+  (execute-systems))
 )