From 7f6d69e986ae9d77b6e7f8e5572f1bdc210a0ad7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Mon, 2 Sep 2013 09:08:20 -0400
Subject: Add a *running* flag to the game loop.

---
 2d/game.scm | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

(limited to '2d/game.scm')

diff --git a/2d/game.scm b/2d/game.scm
index e20638c..cb043ec 100644
--- a/2d/game.scm
+++ b/2d/game.scm
@@ -25,16 +25,11 @@
   #:use-module (srfi srfi-9)
   #:use-module (2d game-loop)
   #:use-module (2d window)
-  #:use-module (2d vector2)
-  #:export (<game>
-            make-game
-            define-game
-            game?
-            game-title
-            game-resolution
-            game-fullscreen?
-            game-first-scene
-            run-game))
+  #:use-module (2d vector2))
+
+;;;
+;;; Games
+;;;
 
 (define-record-type <game>
   (%make-game title resolution fullscreen first-scene)
@@ -64,3 +59,13 @@ value."
                (game-fullscreen? game))
   (run-game-loop)
   (close-window))
+
+(export <game>
+        make-game
+        define-game
+        game?
+        game-title
+        game-resolution
+        game-fullscreen?
+        game-first-scene
+        run-game)
-- 
cgit v1.2.3