From 9b52e9c83c56eef77037fdd7c31e8874e96d4f6a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 7 Jan 2014 20:00:03 -0500
Subject: Add new scheduling procedures and rename existing ones.

* 2d/agenda.scm (agenda-schedule, schedule): Rename.
(agenda-schedule-interval, schedule-interval): Rename.
(schedule-next, schedule-every): New procedures.
* 2d/sprite.scm: Use schedule-every.
* 2d/time.scm (time-every): Use schedule-interval.
---
 2d/time.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/2d/time.scm b/2d/time.scm
index c9c9237..f39bc0e 100644
--- a/2d/time.scm
+++ b/2d/time.scm
@@ -34,7 +34,7 @@
 be a signal, in which case the stored value of the signal will be
 emitted."
   (let ((ticker (make-root-signal (signal-ref-maybe value))))
-    (agenda-schedule-interval
+    (schedule-interval
      (lambda ()
        (signal-set! ticker (signal-ref-maybe value)))
      ticks)
-- 
cgit v1.2.3