summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-12-13 13:33:33 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-12-13 13:37:32 -0500
commit171ee79bc610e400123775f7993cc1501b826d6a (patch)
tree8be079b1ae939acd09b638fc8e8c9e47a3f4d683
parentcd56361421ff460768fbe4e9eaf1080a5507c5c3 (diff)
agenda: Rename procedures.
* sly/agenda.scm (tick-agenda!, clear-agenda!): Rename. (agenda-tick!, agenda-clear!): New procedures. * sly/game.scm (start-game-loop): Use agenda-tick!. * sly/repl.scm (start-sly-repl): Likewise.
-rw-r--r--sly/agenda.scm16
-rw-r--r--sly/game.scm2
-rw-r--r--sly/repl.scm2
3 files changed, 10 insertions, 10 deletions
diff --git a/sly/agenda.scm b/sly/agenda.scm
index e0f6114..a4073a6 100644
--- a/sly/agenda.scm
+++ b/sly/agenda.scm
@@ -32,8 +32,8 @@
agenda-time
current-agenda
with-agenda
- tick-agenda!
- clear-agenda!
+ agenda-tick!
+ agenda-clear!
schedule
schedule-interval
schedule-each
@@ -119,7 +119,7 @@ and enqueue CALLBACK."
((deq! q)) ;; Execute scheduled procedure
(flush-queue! q)))
-(define (%tick-agenda! agenda)
+(define (%agenda-tick! agenda)
"Move AGENDA forward in time and run scheduled procedures."
(set-agenda-time! agenda (1+ (%agenda-time agenda)))
(let next-segment ()
@@ -132,7 +132,7 @@ and enqueue CALLBACK."
(set-agenda-segments! agenda (rest-segments agenda))
(next-segment))))))
-(define (%clear-agenda! agenda)
+(define (%agenda-clear! agenda)
"Remove all scheduled procedures from AGENDA."
(set-agenda-segments! agenda '()))
@@ -174,14 +174,14 @@ and enqueue CALLBACK."
"Return the time of the current agenda."
(%agenda-time (current-agenda)))
-(define (tick-agenda!)
+(define (agenda-tick!)
"Increment time for the current agenda and run scheduled
procedures."
- (%tick-agenda! (current-agenda)))
+ (%agenda-tick! (current-agenda)))
-(define (clear-agenda!)
+(define (agenda-clear!)
"Remove all scheduled procedures from the current agenda."
- (%clear-agenda! (current-agenda)))
+ (%agenda-clear! (current-agenda)))
(define* (schedule thunk #:optional (delay 1))
"Schedule THUNK to be applied after DELAY ticks of the current
diff --git a/sly/game.scm b/sly/game.scm
index 1191f20..a0dbcdc 100644
--- a/sly/game.scm
+++ b/sly/game.scm
@@ -89,7 +89,7 @@ unused accumulator time."
(cond ((>= ticks max-ticks-per-frame)
lag)
((>= lag tick-interval)
- (tick-agenda!)
+ (agenda-tick!)
(iter (- lag tick-interval) (1+ ticks)))
(else
lag)))
diff --git a/sly/repl.scm b/sly/repl.scm
index 0e22ade..c1ab982 100644
--- a/sly/repl.scm
+++ b/sly/repl.scm
@@ -47,7 +47,7 @@ poll the REPL server upon every tick of the game loop."
(with-agenda error-agenda
(while #t
(poll-coop-repl-server server)
- (tick-agenda!)
+ (agenda-tick!)
(usleep 10))))
(lambda (cont)
;; Discard the continuation