Move parameter guarding into its own module

engine/core.scm

@@ -3,6 +3,7 @@
 	(chicken base)
 	(chicken module)
 	(chicken sort)
+	(engine guards)
 	raylib
 	(srfi 1)
 	(srfi 4)
@@ -399,13 +400,6 @@
 ;; Frame generation and game loop
 (export resolve-queues next-frame *clear-color* perform-render)
 
-;; Utility function for guarding parameter values
-(define (guarded-parameter default predicate)
-  (make-parameter default (lambda (val)
-			    (if (predicate val)
-				val
-				default))))
-
 ;; Resolve the entity and system queues. This is exported which allows breaking iteration
 (define (resolve-queues)
   (resolve-entity-queue)

engine/guards.scm

@@ -0,0 +1,13 @@
+(module (engine guards) ()
+(import scheme
+	(chicken base)
+	(chicken module))
+
+;; Utility function for guarding parameter values
+(export guarded-parameter)
+(define (guarded-parameter default predicate)
+  (make-parameter default (lambda (val)
+			    (if (predicate val)
+				val
+				default))))
+)