From 15a7f546cb2107153777d420e824dce2f79d2db1 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 7 Jan 2014 20:23:28 -0500
Subject: Rename agenda procedures.

* 2d/agenda.scm (update-agenda, tick-agenda!): Rename.
(clear-agenda, clear-agenda!): Rename.
---
 2d/agenda.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to '2d/agenda.scm')

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)))
 
-- 
cgit v1.2.3