diff options
-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))) |