summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-01-07 20:23:28 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-01-07 20:23:28 -0500
commit15a7f546cb2107153777d420e824dce2f79d2db1 (patch)
tree1ec3b7b9f31bf840e8370db48bd336f74190517b
parent624ad5514b425659cae9c4cb9da872d15aa93a2b (diff)
Rename agenda procedures.
* 2d/agenda.scm (update-agenda, tick-agenda!): Rename. (clear-agenda, clear-agenda!): Rename.
-rw-r--r--2d/agenda.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/2d/agenda.scm b/2d/agenda.scm
index 7a17ade..cf39932 100644
--- a/2d/agenda.scm
+++ b/2d/agenda.scm
@@ -34,8 +34,8 @@
schedule-interval
schedule-next
schedule-every
- update-agenda
- clear-agenda
+ tick-agenda!
+ clear-agenda!
wait))
;; This code is a modified version of the agenda implementation in
@@ -197,11 +197,11 @@ next tick."
tick."
(schedule-interval thunk 1))
-(define (update-agenda)
- "Update the current agenda."
+(define (tick-agenda!)
+ "Advance time by 1 for the current agenda."
(%update-agenda (current-agenda)))
-(define (clear-agenda)
+(define (clear-agenda!)
"Clear the current agenda."
(%clear-agenda (current-agenda)))