diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-01-07 20:23:28 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-01-07 20:23:28 -0500 |
| commit | 15a7f546cb2107153777d420e824dce2f79d2db1 (patch) | |
| tree | 1ec3b7b9f31bf840e8370db48bd336f74190517b | |
| parent | 624ad5514b425659cae9c4cb9da872d15aa93a2b (diff) | |
Rename agenda procedures.
* 2d/agenda.scm (update-agenda, tick-agenda!): Rename.
(clear-agenda, clear-agenda!): Rename.
| -rw-r--r-- | 2d/agenda.scm | 10 |
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))) |