From 499eb8c5e712455474a8d3e5bcfd8cb875004f64 Mon Sep 17 00:00:00 2001
From: David Thompson <davet@gnu.org>
Date: Wed, 10 Jun 2015 08:45:07 -0400
Subject: Rename start-game-loop to run-game-loop.

* doc/api/init.texi: s/start-game-loop/run-game-loop/
* examples/2048/2048.scm: Likewise.
* examples/animation.scm: Likewise.
* examples/font.scm: Likewise.
* examples/joystick.scm: Likewise.
* examples/mines/mines.scm: Likewise.
* examples/simple.scm: Likewise.
* examples/tilemap.scm: Likewise.
* sandbox.in: Likewise.
* sly/game.scm: Likewise.
---
 doc/api/init.texi        | 2 +-
 examples/2048/2048.scm   | 2 +-
 examples/animation.scm   | 2 +-
 examples/font.scm        | 2 +-
 examples/joystick.scm    | 2 +-
 examples/mines/mines.scm | 2 +-
 examples/simple.scm      | 2 +-
 examples/tilemap.scm     | 2 +-
 sandbox.in               | 2 +-
 sly/game.scm             | 4 ++--
 10 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/doc/api/init.texi b/doc/api/init.texi
index 8312c5e..14eff4b 100644
--- a/doc/api/init.texi
+++ b/doc/api/init.texi
@@ -104,7 +104,7 @@ This hook is run every time the game loop catches an error.
 Procedures added to this hook should accept no arguments.
 @end defvr
 
-@deffn {Scheme Procedure} start-game-loop [@var{#:frame-rate}] [@var{#:tick-rate}] [@var{#:max-ticks-per-frame}]
+@deffn {Scheme Procedure} run-game-loop [@var{#:frame-rate}] [@var{#:tick-rate}] [@var{#:max-ticks-per-frame}]
 Start the game loop.  @code{frame-rate} specifies the optimal number
 of frames to draw per second.  @code{tick-rate} specifies the optimal
 game logic updates per second.  Both @code{frame-rate} and
diff --git a/examples/2048/2048.scm b/examples/2048/2048.scm
index 6027866..043835b 100755
--- a/examples/2048/2048.scm
+++ b/examples/2048/2048.scm
@@ -446,7 +446,7 @@
 (add-hook! window-close-hook stop-game-loop)
 
 (with-window (make-window #:title "2048")
-  (start-game-loop 2048-scene))
+  (run-game-loop 2048-scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../../pre-inst-env guile 2048.scm"
diff --git a/examples/animation.scm b/examples/animation.scm
index 0a72068..5dc9166 100644
--- a/examples/animation.scm
+++ b/examples/animation.scm
@@ -55,7 +55,7 @@
       (make-scene camera model))))
 
 (with-window (make-window #:title "Animation")
-  (start-game-loop scene))
+  (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../pre-inst-env guile animation.scm"
diff --git a/examples/font.scm b/examples/font.scm
index 47e4153..4ce76e3 100644
--- a/examples/font.scm
+++ b/examples/font.scm
@@ -57,7 +57,7 @@
   (signal-map (lambda (model) (make-scene camera model)) model))
 
 (with-window (make-window #:title "Fonts")
-  (start-game-loop scene))
+  (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../pre-inst-env guile font.scm"
diff --git a/examples/joystick.scm b/examples/joystick.scm
index 43484e3..a191de5 100644
--- a/examples/joystick.scm
+++ b/examples/joystick.scm
@@ -91,7 +91,7 @@
 
 (with-window (make-window #:title "Joystick test"
                           #:resolution resolution)
-             (start-game-loop scene))
+             (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../pre-inst-env guile joystick.scm"
diff --git a/examples/mines/mines.scm b/examples/mines/mines.scm
index f030e51..3a9ee7d 100644
--- a/examples/mines/mines.scm
+++ b/examples/mines/mines.scm
@@ -409,7 +409,7 @@
 (add-hook! window-close-hook stop-game-loop)
 
 (with-window (make-window #:title "Mines" #:resolution resolution)
-  (start-game-loop scene))
+  (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../../pre-inst-env guile mines.scm"
diff --git a/examples/simple.scm b/examples/simple.scm
index f9b0082..e4de293 100644
--- a/examples/simple.scm
+++ b/examples/simple.scm
@@ -37,7 +37,7 @@
 (define-signal scene (make-scene camera model))
 
 (with-window (make-window #:title "Simple Sprite Demo")
-  (start-game-loop scene))
+  (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../pre-inst-env guile simple.scm"
diff --git a/examples/tilemap.scm b/examples/tilemap.scm
index 089946e..7c32b11 100644
--- a/examples/tilemap.scm
+++ b/examples/tilemap.scm
@@ -102,7 +102,7 @@
 (define-signal scene (make-scene camera model))
 
 (with-window (make-window #:title "Tilemap")
-  (start-game-loop scene))
+  (run-game-loop scene))
 
 ;;; Local Variables:
 ;;; compile-command: "../pre-inst-env guile tilemap.scm"
diff --git a/sandbox.in b/sandbox.in
index 40c92b5..3d18b6a 100644
--- a/sandbox.in
+++ b/sandbox.in
@@ -59,7 +59,7 @@
 (add-hook! draw-hook (trampoline draw-scene))
 
 (with-window (make-window #:title "Sly Sandbox")
-  (start-game-loop))
+  (run-game-loop))
 
 (display "Bye!\n")
 
diff --git a/sly/game.scm b/sly/game.scm
index 5d3f708..b836c22 100644
--- a/sly/game.scm
+++ b/sly/game.scm
@@ -38,7 +38,7 @@
   #:use-module (sly render scene)
   #:export (draw-hook
             after-game-loop-error-hook
-            start-game-loop
+            run-game-loop
             stop-game-loop))
 
 ;;;
@@ -62,7 +62,7 @@ for the given STACK and error KEY with additional arguments ARGS."
     (apply display-error (stack-ref stack 0) cep args)
     (newline cep)))
 
-(define* (start-game-loop scene #:key
+(define* (run-game-loop scene #:key
                           (frame-rate 60)
                           (tick-rate 60)
                           (max-ticks-per-frame 4))
-- 
cgit v1.2.3