From 171ee79bc610e400123775f7993cc1501b826d6a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 13 Dec 2014 13:33:33 -0500 Subject: 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. --- sly/agenda.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'sly/agenda.scm') 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 -- cgit v1.2.3