cli: play: Extract default modules to %default-modules variable.

1 files changed, 18 insertions, 14 deletions

diff --git a/chickadee/cli/play.scm b/chickadee/cli/play.scm
index 2b61e90..7bbdb35 100644
--- a/chickadee/cli/play.scm
+++ b/chickadee/cli/play.scm
@@ -30,7 +30,8 @@
   #:use-module (system repl debug)
   #:use-module (system repl coop-server)
   #:use-module (system repl server)
-  #:export (chickadee-play))
+  #:export (chickadee-play
+            %default-modules))
 
 (define (display-help-and-exit)
   (format #t "Usage: chickadee play [OPTIONS] FILE~%
@@ -98,24 +99,27 @@ Play the game defined in FILE.~%")
     (update-hz . 60)
     (repl . #f)))
 
+(define %default-modules
+  '((chickadee)
+    (chickadee audio)
+    (chickadee graphics color)
+    (chickadee graphics engine)
+    (chickadee graphics font)
+    (chickadee graphics texture)
+    (chickadee math)
+    (chickadee math matrix)
+    (chickadee math rect)
+    (chickadee math vector)
+    (chickadee scripting)))
+
 (define (make-user-module)
   (let ((module (resolve-module '(chickadee-user) #f)))
     (beautify-user-module! module)
+    ;; Automatically load commonly used modules for
+    ;; maximum convenience.
     (for-each (lambda (name)
                 (module-use! module (resolve-interface name)))
-              ;; Automatically load commonly used modules for
-              ;; maximum convenience.
-              '((chickadee)
-                (chickadee audio)
-                (chickadee graphics color)
-                (chickadee graphics engine)
-                (chickadee graphics font)
-                (chickadee graphics texture)
-                (chickadee math)
-                (chickadee math matrix)
-                (chickadee math rect)
-                (chickadee math vector)
-                (chickadee scripting)))
+              %default-modules)
     (module-define! module 'quit-game (lambda () (abort-game)))
     module))